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Preface 



In data processing installations, a large amount of 
computer idle time may be spent between jobs to set 
up the computer for the next job. Programs must be 
readied, data must be readied, etc. The amount of 
time spent in these activities is greater in installations 
where many different jobs are part of the daily sched- 
ule. Because computer utilization is usually based 
upon the time spent in executing a job, utilization may 
appear to be low where multiple jobs increase setup 
time. 

To increase 1620 computer utilization, the user may 
now adopt the 1620 Monitor Programming System. 
The primary function of a monitor system is to pro- 
vide continuous operation during a sequence of jobs 
which might otherwise involve the manual loading of 
several independent programming systems. To do this, 
the Monitor coordinates computer activity by pro- 
viding a communication region for independent pro- 
gramming systems and by transferring control be- 
tween them. Operation is continuous and setup time 
is reduced. This effects a substantial time saving in 
computer operation and allows greater flexibility in 
programming. The monitor concept — to control the 
operation of several unrelated routines and machine 
runs so that the computer and computer time are 
used advantageously — is not new. This concept, pre- 
viously employed by other large-storage-capacity data 
processing systems, is made possible for the 1620 by 
the 1311 Disk Storage Drive. 

Through the use of Monitor II, it is possible to 
assemble, assemble and execute, compile, compile 
and execute, and execute programs stored in disk 
storage. In addition, the normal disk storage main- 
tenance tasks, such as storing programs, can be per- 
formed by the system. 

A stacked input arrangement provides direction for 
the system. This direction is given in the form of 
control records, which are prepared prior to the 
actual operation by the programmer and/or operator. 



These records direct the sequence of jobs without in- 
terrupting continuous operation. A typical sequence 
of jobs could be a compilation of Fortran programs, 
assembly of sps programs, compilation and execution 
of a FORTRAN program, execution of a disk-stored pro- 
gram, and punching of a disk-stored program into 
cards. 

In addition to substantial saving of computer time. 
Monitor II reduces the amount of programming time 
required by the user. This is made possible through 
the sharing of common subroutines by unrelated pro- 
grams. For example, input and output for all sps ob- 
ject programs can be performed by a common input/ 
output subroutine. Because most programs require a 
subroutine of this nature, it has been made an integral 
part of the Monitor II System, available to all 1620 
user programs. 

To use the Monitor System, the programmer must 
pay particular attention to control records and stacked 
input arrangements described in this publication. In 
addition to directing the sequence of jobs, control 
records allow the user the flexibility of assigning the 
specifications for each job. Various jobs, each with its 
own control record, are entered into the 1620 in the 
stacked arrangement. Jobs are performed, in the order 
in which they are encountered, under control of the 
Monitor and without operator attention. However, 
some messages generated by the Monitor regarding 
the status of processing may require operator inter- 
vention. 

The IBM 1620 Monitor II System is comprised of 
four separate programs: 

Supervisor Program 
Disk Utility Program 

SPS II-D 
FORTRAN n-D 

The material contained in this publication is organ- 
ized and presented under these headings. 



iv 



IBM 1620 Monitor II System 



Monitor II ( Figure 1 ) , a collective name for four dis- 
tinct but interdependent programs — Supervisor, Disk 

Utility, sps ii-D, and Fortran ii-d programs — is a 
powerful, combined operating and programming sys- 
tem. Systems of this type have previously been avail- 
able only on other large-storage capacity computers. 
The 1311 Disk Storage Drive with two-million posi- 
tions of storage makes possible the implementation of 
such a system on the 1620. Although both sps and 
FORTRAN are included with the Monitor System, either 
may be deleted from the system, if desired. 

The complete Monitor System resides in disk stor- 
age and only those routines or programs required at 
any one time are transferred to core storage for exe- 
cution. This feature, which is common to a Monitor 
System, minimizes core storage requirements and per- 
mits segmenting of long programs. It makes any one 
of many programs accessible to the computer with 
minimum delay or manual operation. 

Inclusion of sps and Fortran programming lan- 
guages in the Monitor System facilitates development 
of a library of user object programs. Programs can 
be stored in cards or paper tape, as they were stored 
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in the past. In addition, they can be stored in disk 
storage without the necessity of assigning actual stor- 
age areas, remembering or documenting the storage 
assignments, and updating assignments and documen- 
tation as conditions change. These disk-stored pro- 
grams can be referred to by a name or number when 
called for execution. If a program is added or deleted 
from the user's repertoire of programs, the storage 
locations of the other programs are adjusted to main- 
tain a packed condition for eflFective utilization of 
disk storage. An account of available disk storage is 
kept for the user as adjustments are made to disk 
storage. 

To make eflFective use of disk storage, a common 
disk working area is maintained for all facets of the 
Monitor System. One use for this area is to store inter- 
mediate output from Fortran compilations or sps 
assemblies to speed up these operations. 

Approximately 22 percent of disk module zero is 
used for the Monitor System itself. The remainder 
of disk storage, with the exception of a few sectors 
on each additional disk module, can be used for user 
programs and data records. 

The use of disk storage is controlled by three disk- 
stored tables. The first and major table is the Disk 
Identification Map known as dim. Each disk-stored 
item (program, data, or table) has a dim entry which 
contains information on where the item is stored, 
how many disk sectors it occupies, and, if it is a 
program, its core storage address. Thus, to refer to 
an item, it is only necessary to use its dim entry num- 
ber. For those who prefer to use an alphabetic name 
instead of a number, a second table, called Equiva- 
lence table, lists the names and their equivalent dim 
entry numbers. The third table, a Sequential Program 
table, shows the assignment of disk storage by dim 
entry numbers and the availability of unassigned 
storage. Maintenance of these tables is performed 
automatically by the Monitor without user supervision 
or direction. 

To examine the Monitor System, it is best to sum- 
marize the functions of its various parts: Supervisor 
Program, Disk Utility Program, sps, and Fortran. 
Subsequent sections present the detailed information 
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for each, required to program and operate. 

The four primary functions of the Supervisor Pro- 
gram are: 

• Input/output 

• I/O error detection and correction 

• Program loading 

• Control 

Individual routines which perform these functions 
follow. 

Input/Output routine, which performs all I/O 
functions (card, paper tape, typewriter, or disk) 
for the Monitor System. 
I/O Error routine, which provides for error detec- 
tion and correction for all I/O operations per- 
formed by the Input/Output routine. 
Loader routine, which loads object programs into 
core storage from card, paper tape, typewriter 
or disk input. 
Monitor Control Record Analyzer routine, which 
records and interprets jobs to be performed, and 
transfers control to other routines or programs 
while maintaining communication so that control 
may eventually be returned to itself. 
Because all input/output is processed by the In- 
put/Output routine, all data, programs, or control in- 
formation from any input unit enter the 1620 cpu 
through this routine. The Input/Output routine is able 
to segment the continuous flow of input information 
into discrete jobs. Certain information is recognized 
as control information. With the proper control infor- 
mation, the Monitor could, for example, execute a 
particular series of jobs consisting of ( 1 ) compiling 
a FORTRAN program and executing it using supplied 
data from any input source, (2) loading an sps object 
program from disk storage and executing it using 
data supplied from any input source. All of this can 
proceed automatically from one task to the next 
without stopping the machine for operator action. 
Thus, ease of operation is achieved with increased 
efficiency and throughput. 

The Input/Output routine recognizes Monitor con- 
trol information by two record marks (4==j=). If the 
first two columns of a card or tape record contain 
record marks, the control information is examined by 
the Monitor Control Record Analyzer routine to see 
which one of twelve possible tasks is to be performed 
next. 

1. =]==)= JOB, initiates a new job. 

2. =t==N SPS, indicates that an sps source program(s) 
is to be assembled. 



3. 4=4= spsx, indicates that an sps source program 
is to be assembled and executed. 

4. 4=4= FOR, indicates that a Fortran source pro- 

gram(s) is to be compiled. 

5. 4=4= FORX, indicates that a Fortran source pro- 
gram is to be compiled and executed. 

6. 4=4= DUP, indicates that a Disk Utility routine is 

to be executed. 

7. 4=4= TYPE, indicates the next control record is 
to be entered from the typewriter by the opera- 
tor. 

8. 4=4= PAUS, allows operator action. 

9. 4=4= XEQ, initiates loading and execution of an 
SPS object program. 

10. 4=4= XEQS, initiates loading and execution of 
FORTRAN or SPS objcct programs with subroutines. 

11. 4=4=4==f=j is used to indicate the end of a job. 

12. 4==t=j serves as a Comments record. 

These control records can be classified as being one 
of three types. Type 1 provides control information 
which is used as instructions to the Supervisor Pro- 
gram. Type 2 provides for loading and starting the ex- 
ecution of user-written programs, using data from con- 
trol records to initialize various subroutines used by 
programs. Type 3 provides for functions similar to 
type 2 except that the Fortran, sps or the Disk Utility 
Program with its functional capabilities is also execut- 
ed. 

When FORTRAN, sps, or the Disk Utility Program 
is executed, all input records are examined for 
an asterisk (*) in the first position to determine 
if they are control records. These records have two 
functions : ( 1 ) they provide information about specific 
Disk Utility jobs to be performed, (2) they provide 
the specifications for Fortran compilations or sps 
assemblies. 

Ten Disk Utility Control records provide various 
user options. Each of these control records transfers 
control to an individual routine to perform the desired 
function. 

1. *dwrad, indicates sector addresses are to be 
written on a disk pack. 

2. *daltr, allows the operator to alter disk-stored 
data from the typewriter. 

3. *DDUMP, indicates disk-stored data or programs 
are to be outputted. in cards, paper tape or on 
the typewriter. 
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4. *DLOAD, indicates a program is to be loaded into 
disk storage from cards, paper tape, or the work- 
ing cylinders. 

5. *DREPL, indicates a disk-stored program is to be 
replaced by another. 

6. *DCOPY, indicates that data or programs are to 
be copied into another area of disk storage. 

7. *DELET, indicates a program is to be deleted 
from disk storage. 

8. *DFiNE, allows changes to be made to the Moni- 
tor System specifications. 

9. *DLABL, is used to write identity labels on disk 
packs. 

10. *DFLiB, allows names to be assigned to Fortran 
library subi^outines. 

Examples of Fortran and sps asterisk control records 
are: 



FORTRAN 

*pobjp4 



*pstsn4 



SPS 

* output card 



Description 
Punch object program 

into cards 
Punch Symbol Table 
into cards 



'PUNCH symbol 

TABLE 

The many routines of the Disk Utility Program are 

designed to perform the necessary but tedious disk 
housekeeping functions. Items stored on the disk 
or items to be stored on the disk can be referred to 
symbolically; that is, by a symbolic name. The Moni- 
tor System will allocate and keep track of disk storage 
areas for the user. 

The sps ii-D assembler translates programs written 
in symbolic language into machine language. The 
symbolic language is an extension of 1620/1710 sps. 
Only one pass of the source statements is required be- 
cause intermediate output is stored on the disks. Also, 
the Symbol table is disk stored, thereby allowing for 
assembly of programs with a great number of labels. 
An additional symbol table, known as the System 
Symbol table allows different sps source programs to 
use common labels. 

I/O macro-instructions are provided in the sps 
language to relieve the programmer of writing Input/ 
Output routines in source programs for card, paper 
tape, or disk operations. Thus, all I/O functions in- 
cluding error detection and correction can be stand- 
ardized. GET and PUT macro-instructions are used for 
reading and writing. These instructions generate ap- 
propriate linkages to the Input/Output routine which 
does the actual reading or writing (card, paper tape, 
or disk). 



To eliminate the necessity of having an entire ob- 
ject program in core storage for execution at any one 
time, a call macro-instruction is provided. This in- 
struction enables an object program in - core storage 
to be overlayed with instructions from disk storage. 
Thus, the size of an object program can be virtually 
unlimited. 

Immediately following assembly, an object program 
is located in the disk working cylinders. It can be 
stored in disk storage without outputting it in some 
other form, thereby greatly reducing program loading 
time. Program listings can be obtained in either card 
or typewriter form. The program can also be immedi- 
ately executed or punched out into cards or paper 
tape for loading and executing at any later time. 

Any library subroutine set may be used by an 
object program. User-written relocatable programs 
can be automatically added to the library subroutine 
set, if desired. 

The FORTRAN compiler translates programs written 
in the Fortran ii-d language into 1620 machine lan- 
guage. Because of the large storage capacity of the 
1311, source programs are read into the computer 
just once. Intermediate output is stored in the disk 
work area to minimize input/output time. Following 
compilation, an object program may be executed im- 
mediately, punched into cards or paper tape, or stored 
in disk storage for execution at a later time. 

Statements are provided in the Fortran language 
that permit the use of disk storage. These statements 
provide for ( 1 ) defining the size and quantity of data 
records to be stored, (2) reading and writing on disks, 
(3) positioning the disk access mechanism for read- 
ing or writing, (4) returning control to the Supervisor 
after execution of a Fortran object program, ( 5 ) over- 
laying programs in core storage with other programs 
from disk storage and executing the overlaying pro- 
grams. 

Subprograms can reside in either core or disk stor- 
age. Disk-stored subprograms can be called into core 
storage only when needed. Thus very large problems 
can be accommodated. 

New floating-point and subscripting subroutines, 
which use the Indirect Addressing feature and com- 
piler algorithms, provide for efficient object program 
execution. Subroutines written in sps ii-d language 
can easily be added to the Fortran subroutine library. 
Also, subprograms written in sps can be called for 
execution by Fortran programs or subprograms. 

Object programs, either sps or Fortran, can be 
punched into cards or paper tape following assembly 
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or compilation, if desired. However, assembly or 
compilation time is shortened if the object program 
is stored in disk storage rather than cards or paper 
tape. A standard System Output format, which may 
be in absolute or relocatable form, is used to output 
object programs. Only the programs outputted in the 
standard format can be reloaded by the Monitor 
System. 

sps and Fortran source programs are assembled or 
compiled using a given mantissa length, noise digit, 
subroutine set, etc., specified in a common Communi- 
cations Area. These given specifications are used for 
all assemblies or compilations; however, the user may 
change one or more of the specifications, such as 
mantissa length, with control records for a particular 
assembly or compilation. 

SPS or FORTRAN sourcc programs can be entered into 
the 1620 from cards, paper tape, or typewriter. Object 
programs, however, can be entered from cards, paper 
tape, or disk storage. Data, of course, can be entered 
from any input source as directed by an object pro- 
gram. 

SPS ii-D and Fortran ii-d object programs will be 
in a System Output format. System Output consists 
of relocatable or absolute records. The relocatable 
format allows the programmer to specify a different 
core storage address for the start of a program each 
time it is loaded. All addresses within a program that 
are being relocated are adjusted relative to a new 
starting address. The starting address (relocation ad- 
dress ) is specified by means of a control card at load 
time. Absolute format, which can be generated by the 
SPS ii-D assembly program, is assembled to load to a 
fixed core storage area. 

Machine Requirements 

The Monitor II System operates on a 1620 System, 
Model 2, which has a minimum of 20,000 positions of 
core storage, a 1311 Disk Storage Drive, Model 3, and 
index registers. In addition, the Automatic Floating- 
Point Operations feature is required to execute For- 
tran object programs. 

Operation 

The Monitor II System is f).vailable in either card or 
paper tape versions, ready for loading to disk storage. 
After either version is loaded, both cards and paper 
tape may be used with the programs. 

The system is self-loading, i.e., it contains the load- 
ing instructions that enable it to load itself into disk 
storage. For handling convenience, a sequence num- 
ber is punched in card columns 76-80 of card input. 



Disk storage drive 0 (address block 00000-19999) is 
required for storing the Monitor System. A descrip- 
tion of the loading process, including operating pro- 
cedures, is included under monitor ii system loader. 

During operation of the Monitor System, the disk 
pack containing the Monitor System can be on any 
disk module. To begin operation of the Monitor Sys- 
tem, load the Supervisor Program into core storage 
from disk storage. 

Note: Indirect Addressing must be selected on. 

Loading the Supervisor Program is accomplished by 
entering from the typewriter or a card, the following 
instructions: 



Core Storage 
Address of 
Instruction 
00000 
00012 
00024 
00031 
00032 



Instruction 
34 00032 00701 
36 00032 00702 
49 02402 
X 

Y1963611300102 



X identifies the form of input for the Monitor Control 
records: 1 for typewriter, 3 for paper tape, and 5 for 
cards. Y specifies the disk drive code (1, 3, 5, 7) iden- 
tifying the disk module where the Monitor II System is 
loaded. (Any time the Monitor pack is moved to a 
different drive, this sequence of instructions must be 
repeated. ) 

When the Release and Start key or Load key is 
depressed, the Supervisor Program is read into core 
storage and the first Monitor Control card is read 
in under control of the Supervisor Program by the 
Monitor Control Record Analyzer routine. 

This routine reads all control records and types them 
out to inform the operator of the status of processing. 
If operator intervention is required for any reason, the 
routine will type a message and halt the 1620. Process- 
ing can be resumed as explained in the section concern- 
ing the monitor control record analyzer routine. 

The Parity, I/O, and Overflow Program switches 
should be on program to operate the Monitor II System. 

Disk Storage Requirements 

Portions of cylinders 24-25 and 78-99 of module 0 are 
used by the Monitor System. Unused portions of 
these cylinders can be listed using the Disk-to-Output 
routine to obtain an availability list. A list of die as- 
signed cylinders and dim entry numbers associated 
with the programs, routines, and tables stored in this 
disk area follows. 



4 



Program/Table 


Cylinders 


DIM Numbers 


Working Storage 


00-23 


1 


DIM table 


24 


3 


Equivalence table 


25 


2 


FORTRAN Subprogram 


80, 84 


138, 147, 149, 


Loader 




150, 152, 157 


FORTRAN Library Sub- 


81 


*10-39, 170-199 


routines 






SPS Library Subroutines 


82-83 


**40-130 


FORTRAN I/O and Arithme- 


84, 97 


144-146, 200-202 


tic Subroutines 






FORTRAN Compiler 


86-90 


136-137, 153, 






156, 203 


Disk Utility Program 


85, 91-92 


139-143, 154, 155 


SPS Assembler 


93-96 


8, 9, 131, 132 


SPS Subroutine Supervisor 


85 


133 


Supervisor Program with I/O 


98 


134, 148 


Routine 






System Output Loader Routine 


98 


135 


1440, 1401, 1410, Systems 


99 


166-169 


Header Label Area *** 






Monitor Disk Pack Label*** 


99 


158-161 


Mutual Disk Pack Identifica- 


99 


162-165 


tion Label *** 






Sequential Program table *** 


99 


4, 5, 6, 7 


System Area 


99 


151 



*Only DIM entries 10-25 and 170-185 are in use when the 
system is delivered. 
**Only DIM entries 40-57, 70-87, 100-117, and 130 are in 
use when the system is delivered. 
***Present on all available modules. 



Any program or routine not to be used may be de- 
leted from disk storage using the Disk Utility Pro- 
gram, Delete Programs routine. All areas are assigned 
automatically to module 0 w^hen the system is initially 
loaded; hov^ever, certain assignments can be altered 
by the user as described in the section concerning 
1620 Disk Utility Program, under define parameters 
(dfine) control card. With this entry it is possible 
to utilize more than one disk storage drive and to 
enlarge or shorten the tables used by the Monitor 
System. 

WORKING CYLINDERS 

Cylinders 00-23, reserved for working storage, are 
available to every program. This area is not available 
for permanent sto ra ge of programs and dat a. Tfiis 
area is identified bv dim entry 0001. 

The working cylinders may be thought of as a 
"scratch pad"; i.e., an area for storing intermediate 
results. These results should be moved to another disk 
area if they are to be retained for further use. Be- 
cause the Monitor System uses this area to perform 
its function, the contents of the area are continually 
changing. However, an object program will occupy 
the area at the beginning of the working cylinders 
immediately after compilation or assembly is com- 
pleted. 
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EQUIVALENCE TABLE 

When a user's object program, identified by name, 
is loaded into disk storage by its compiler or by the 
DLOAD or DREPL routincs of the Disk Utility Program, 
its name as well as its dim entry number is entered in 
the Equivalence table. Sixteen digit positions are re- 
quired for each entry, twelve for the 6-character al- 
phabetic name and four for the dim entry number 
that starts with 0001. Eighty sectors with a capacity 
of 500 program names are reserved to store the Equiv- 
alence table immediately following the standard dim 
table (cylinder 24). 

When the Monitor System is delivered, the first 51 
entries are reserved for the system, fifty for Fortran 
library subroutine names and one for the sps ii-d 
modification program. Unused names in the first 50 
entries will be identified by a field of 16 nines. 

When a name, other than a Fortran subroutine, is 
added to the table, it is placed in the 16 positions fol- 
lowing the last entry. When a name, other than a 
name from the first 50 entries, is deleted from 
the table, all entries in higher-numbered positions are 
shifted left to overlay the deleted entry. Thus, the 
table, with the exception of the first 50 entries, will 
contain only those entries that are in force at any 
one time. The rightmost position of the table is identi- 
fied by a record mark. 



DISK identification MAP (dIm) TABLE 

The Supervisor Program, Disk Utility Program, sps 
assembler, and Fortran compiler use this table to find 
subroutines, data areas, or tables in disk storage. The 
DIM table on cylinder 24 can accommodate up to 999 
20-digit entries. One entry is required for each pro- 
gram or data area permanently stored in disk storage. 
The format of the 20-digit dim entry follows: 

DDDDDDSSSCCCCCEEEEE =^ 

DDDDDD is the disk sector address of the program or 
data. 

sss is the sector count. 

ccccc is the core address. If this field is all 9's, the 
program is in relocatable format. If the units posi- 
tion is flagged, the Subroutine Supervisor is used 
to load the program. 

EEEEE is the entry address. This address is relative to 
the load address (first core address to be loaded) 
for programs in relocatable format. 

4=, or ^ is the rightmost character of a dim 

entry. 

These characters indicate the following conditions 
about a referenced program. 
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Character File Protected Permanently Assigned 

^ Yes No 

^ Yes Yes 

4= No No 

=1= No Yes 

Note: (1) That a file-protected program can be 

read but not written because it has read-only flags 
written in all (or any one) of the sector addresses in 
the disk area which it occupies. If read-only flags are 
written by a user's program in sector addresses where 
a program is stored, that disk storage area will not 
be "file protected," however, data cannot be written 
in individual sectors which contain read-only flags. 
(2) That a permanently assigned program cannot be 
repositioned (moved) in disk storage because it has 
been assigned to a given address by the user. 

The Supervisor Program locates a dim entry in the 
following manner: 

1. It refers to the Equivalence table to find the 

4-digit DIM entry number. 

2. It doubles this number and adds the sum to 
048000. 

3. It uses the leftmost five digits of the result to 
locate the disk sector of the dim table. 

4. It uses the rightmost digit of the result to find 
the particular dim entry. 

The DIM table can be expanded (see define param- 
eters routine) to contain up to 4995 dim entries, an 
increase of 999 entries for each additional cylinder, 4 
additional cylinders maximum. 



sequential program table 

The second through eighty-first sectors (80 sectors) of 
cylinder 99 are reserved on each disk pack for a Se- 
quential . Program table which lists the programs, 
tables, and data areas sequentially by dim numbers, 
and available storage space by special coding. The 
Sequential Program table is used by the 1620 Disk 
Utility Program to determine the order of programs 
and available storage space. When a program is add- 
ed to or deleted from disk storage, the table is updat- 
ed to reflect the new squence. Each 80-sector table 
will accommodate up to 2000 4-digit entries. Three 
types of entries are included in a table. 

1. dim entry numbers for every program or data 
area specified in the dim table. 

2. Available sector count to indicate the number 
of available sectors between programs or data 
within cylinders. 

3. Cylinder entry numbers to identify the beginning 
of each cylinder. 



Available sector numbers always begin with 9 
(9xxx); the three rightmost digits denote the number 
of consecutive available sectors. For example, 9021 
indicates that 21 consecutive sectors are unused with- 
in a cylinder. A maximum of 200 available sectors 
can be represented by an entry. 

Cylinder entry numbers always begin with 70 
(70xx); the two rightmost digits represent the cylin- 
der number. One hundred of these entries are con- 
tained in the table, one for each of the 100 cylinders 
numbered 00-99. 

An example of how the three types of entries might 
appear in a Sequential Program table for cylinders 
48-52 follows: 

7048 0434 0435 7049 0436 9010 0437 7050 0437 
7051 0437 7052 0437 

where the programs identified by dim entry numbers 
0434 and 0435 occupy all 200 sectors of cylinder 48, 
and the programs identified by dim entry numbers 
0436 and 0437 occupy all sectors of cylinders 49-52, 
with the exception of 10 unused sectors between the 
two programs in cylinder 49. Note that programs that 
overlap cylinders will have the associated dim entry 
number repeated for each cylinder on which it is 
stored. 

The length of the Sequential Program table is 80 
sectors unless changed by a dfine control record ( see 
disk utility program). Fifty sectors should provide 
sufficient space in the table if 1000 programs are to 
be written on a disk pack. Therefore, the user may 
want to lengthen or shorten the table for his particular 
needs. 

IBM 1440, 1401, 1410, Systems Header Label Area 

To facilitate the processing of common disk packs, a 
standard alphabetic identification label is created on 
the 1401, 1410, or 1440 Systems. This label is not used 
by the 1620 System. The disk storage area (first 19 
sectors of the last disk track of the last cylinder) re- 
served for this label can be released for other storage 
purposes, using the delet Disk Utility routine, if a 
disk pack will be used with the 1620 only. The dim 
entries for the four modules that may be connected 
to the system are 166, 167, 168, and 169. 

Mutual Disk Pack Label 

A 5-digit disk pack identification label that can be 
used by the other systems (1440, 1401, or 1410) must 
be written on the 32nd through 36th position on the 
last sector of cylinder 99. This sector should be given 
the sector address 00199 regardless of the addressing 
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scheme used on the remainder of the disk pack. The 
sector can be labeled automatically using the Define 
Disk Pack Label routine of the Disk Utility Program. 

Monitor Disk Pack Label 

The first sector of cylinder 99 is a label sector, that 
is, it contains a label to identify the disk pack. Each 
disk pack used by the Monitor System must include 
this label. A 5-digit disk pack identification number 
in the five leftmost positions of the sector constitutes 
the label. This number is used to provide protection 
for user's records as explained in the section entitled 

DISK PACK IDENTIFICATION NUMBERS. This file-prOtCCtcd 

label must be generated using the Define Disk Pack 
Label routine. The dim numbers for these labels are: 
0158, 0159, 0160, and 0161 for packs placed on 
modules 0, 1, 2, and 3, respectively. 

Core Storage Requirements 

The Monitor II System requires certain areas of core 
storage in order to operate. Core storage positions 
00100-02401 must be permanently assigned to the 
Monitor II System; however, positions 00000-00099 and 
I 02402-19999 are only temporarily assigned to the sys- 
tem, A temporary area is available to the user for exe- 
cution of object programs. The core storage layout for 
the Monitor II System follows. 
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00000 - ooovy 


Arithmetic Table 


00100 - 00400 


System Communications 


00402 - 00439 




00440 - 02401 


I/O RmifinA 

I/O Error Routine, 
Loader Routine and 
Inltiolizing Routines. 






02402 - 19999 


Supervisor Program, Monitor 
Control Record Anoi/zer 
Routine, SPS Processor, 
and FORTRAN Compiler. 
(May be Used by Object Programs.) 




Available Storage 


20000- 
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Supervisor Program 



The Supervisor Program performs tiie control func- 
tions and Input/Output (I/O) functions for the 1620 
Monitor System. The Fortran u-d compiler and the 
sps ii-D processor, under control of the Supervisor Pro- 
gram, can be used to compile or assemble machine 
language object programs. The Disk Utility Program, 
also under control of the Supervisor Program, can be 
used to write disk addresses, to alter a disk sector of 
data from the typewriter, to load, update, and move 
programs in disk storage, to delete programs from 
disk storage, and to copy data, disk to disk. 

SPS ii-D or FORTRAN II-D objcct programs can be 
loaded from cards or paper tape into disk storage un- 
der control of the Supervisor Program. Because the 
I/O functions are performed by a routine contained 
in the Supenasor Pro-am, the programmer need not 
concern himself with writing these routines in sps 
source language. By use of a macro-instruction in the 
SPS source program, cards and paper tape can be 
read and punched, data can be stored and retrieved 
from disk storage, and data can be read and typed 
from the typewriter under control of the I/O routine 
in the Supervisor Program. When a macro-instruction 
is encountered in a source program, linkage instruc- 
tions, which provide an exit to an I/O routine, are 
created in the object program. If desired, the user 
may manually code linkage instructions without the 
use of macro-instructions. Manually coded Hnkage 
instructions offer certain input/output options, unob- 
tainable with macro-instructions. Error checking and 
correction procedures are a part of the I/O routine. 
The Supervisor and Disk Utility Programs use the 
I/O routine to perform their assigned tasks. 



Monitor Control Records 

Although the Monitor Cpntrol records are described 
in terms of cards, these records can be in paper tape 
or typewriter form. 

The input to the Supervisor Program consists of 
one or more "job decks" (Figure 2). A job deck, as 
the term is used in this manual, may be a program 
to be compiled or assembled, a combination of these 
two (including data); it may also be a series of Disk 
UtiHty Program operations. The Processing of each 



job deck is controlled by the Supervisor as specified 

by the Monitor Control card that precedes it. 

When a Monitor Control card is read, the program 
required to do the job is read into core storage from 
disk storage. The program then processes input until 
the end of the job deck is reached, a new Monitor 
Control card is encountered, or an error occurs. When 
the end of a job deck is reached or a new Monitor 
Control card is encountered, the Supervisor Program 
is reloaded into core storage from disk storage, and 
the process is repeated. If an error occurs, a message 
will print to identify the error, and the remainder of 
the job will be processed. If it is not possible for the 
job to continue, the Supervisor Program will skip to 
the next job. All Monitor Control records, with the 
exception of those entered from the typewriter, will 
be typed out on the 1620 console typewriter. 

The 1620 Monitor II System uses eleven Monitor 
Control cards to indicate the processing required of 
the 1620 Supervisor Program. The manner in which 
the Supervisor handles each of these cards is describ- 
ed in Figure 3. 



Operation Codes 

An alphabetic pseudo operation code, left-justified in 
columns 3-6, is used to identify each of the eleven 
Monitor Control cards. By examining the operation 
code, the Supervisor Program is able to determine 
what processing action is required. 

JOB 

A JOB operation causes ( 1 ) the description or operat- 
ing instructions contained in the job Monitor Control 
card to be typed, (2) modifies the module, if re- 
quired, and (3) checks to ensure that the proper disk 
packs have been attached by the operator. 

SPS 

This operation causes the sps ii-d assembly program 
to be read into core storage from disk storage and to 
be executed. The assembled object program may be 
stored in disk storage and an entry made in the dim 
(Disk Identification Map) table. 
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sx 

lie spsx operation is similar to the sps operation, 
ith one exception: after the object program is as- 
mbled, it is then executed. 

)R 

FOR operation causes the Fortran ii-d compiler 
ogram to be read into core storage from disk stor- 
;e and to be executed. The object program can be 
3red in disk storage. If this occurs, an entry will be 
ade in the dim table. 

»RX 

le FORX operation is the same as the for operation, 



with one exception: the object program is executed 
after it is compiled. 

XEQ 

The XEQ operation causes the sps ii-d object program, 
identified by the Monitor Control card data, to be 
read into core storage from the input device indicated 
in column 27, and then to be executed. If the object 
program requires any of the sps subroutines to oper- 
ate, or if the object program is a Fortran compiled 
program, the xeqs operation must be used instead of 
the XEQ operation. Each disk-stored program, called 
by the xeq operation, must have a dim entry to enable 
the Supervisor Program to find it. 



/ 
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XEQS 




STACKED INPUT 
(Monitor Control Cords, 
Date Cords, 5P5 and 
FORTRAN Source Cords, 
Disk Utility Progrotn 
Control Cords) 



Type 

Description 



Load SPS n-D 
Processor into 
Core Storage 
from Disk Storage 
ond Execute 



Load FORTRAN 
n-D Compiler into 
Core Storoge from 
Disk Storoge and 
Execute 



Load Disk Utility 
Program into Core 
Storage from Disk 
Storage and 



Enter Succeeding 
Monitor Control 
Records from 
Typewriter 



HALT 

Depiess Start 
Key to Resume 
Processing 



Load SPS n-D 
Object Program 
without Subroutines 
into Core Storage 
from Disk Storage 
and Execute 



Lood FORTRAN H-D 
or SPS n-D Object 
Program with Sub- 
routines into Core 
Storage from Disk 
Storoge ond Execute 



Pass Cords 
!o next 
Monitor 
Control Card 



Pass Cords to 

Next Monitor 

Job Cord 



This operation causes an sps ii-d or Fortran ii-d 
object program, identified in the Monitor Control 
card, to be read into core storage from disk storage, 
cards, or paper tape, and to be executed. If the object 
program uses any of the sps subroutines, the xeqs 
operation must be used. Each disk-stored program 
called by the xeqs operation must have a dim entry 
to enable the Supervisor Program to find it. 



DUP 

The DUP operation causes the 1620 Disk Utility Pro- 
gram to be read into core storage from disk storage 
and to be executed. 



TYPE 

The TYPE operation causes a message — which re- 
quests the operator to enter the next Monitor Control 
record from the typewriter — to be typed and the 
program to stop to await keyboard input. After the 
operator enters the Monitor Control record, the Re- 
lease and Start key should be depressed to resume 
computer operation. All succeeding control records 
must be entered from the Typewriter until a job Con- 
trol record is entered to change the source of input. 

PAUS 

The PAUS operation halts the program to allow the 
operator to change paper tapes, load input cards, etc. 
Job processing is resumed by depressing the Start key. 

=1=4= (end-of-job) 

The 4= =1= (end-of-job) operation causes the message 
END OF JOB 

to be typed, if a job has actually started, and control 
is to be resumed by the Supervisor Program. An end- 
of-job record must follow each job. If this record is 
not present, erroneous results may be obtained. 

Monitor Control Card Formats 



JOB. 

Columns 1-2 

3-6 
7 



Figure 3. Logic of Supervisor 



=:1==|= (identification record 
marks ) 

Operation (job, left-justified). 
Source of input, 

5 = card. 

3 = paper tape. 

1 = typewriter. 



JO 



8-11 Module change numbers (for 
disk input only). 

12-31 Disk pack identification num- 
bers (for disk input only), 
12-16 drive 0. 
17-21 drive 1. 
22-26 drive 2. 
27-31 drive 3. 

32-80 Description. 

SPS, FOR, DUP, TYPE, PAUS. 

Columns 1-2 =|==i= (identification record 
marks ) . 

3-6 Operation (sps, etc., left-justi- 
fied). 

7 Source of input, for sps, for, or 
Dup Monitor Control cards, 
5 = card. 
3 = paper tape. 
1 = typewriter. 



SPSX. 

Columns 



1-2 



4=4= ( identification record 
marks ) . 

Operation (spsx). 
Source of input, 
5 = card. 
3 = paper tape. 
1 = typewriter. 
SPS subroutine set identification 
number. 

N (Noise) digit. 
Two digits for indicating length 
of mantissa. 

* Required only when the program to be executed 
uses other than the standard operating specifications 
(02 standard subroutine set, 0 standard N digit, 08 
standard mantissa length). 



3-6 
7 



*8-9 

*10 
*11-12 



FORK. 
Columns 



XEQ. 

Columns 



1-2 4=4= ( identification record 

marks ) . 
3-6 Operation (forx). 

7 Source of input, 

5 = card. 

3 = paper tape. 

1 = typewriter. 

8 FORTRAN subroutine set identifi- 
cation number. 

9-10 Control card count (number of 
LOCAL control cards). 



1-2 4==l= (identification record 
marks). 



3-6 
7-12 



13-16 



17-21 



22-26 



27 



XEQS. 



Columns 1-2 

3-6 
7-12 



13-16 



17-21 



22-26 



Operation (xeq, left-justified). 
Name of user's program, to be 
executed (same name assigned 
in Equivalence table). 
DIM (Disk Identification Map) 
entry number. 

Note that either the name or the 
DIM entry number must be given 
(if program is in disk storage), 
but if both are given, the name 
takes precedence. 
Address where loading of user's 
program begins if program is not 
in core image. If not supplied, 
address 02402 is assumed. 
Address where execution of 
user's program is to begin if pro- 
gram is not in core image. This 
address must be relative to the 
start of the program if the pro- 
gram is relocatable; otherwise, 
the absolute entry address must 
be supplied. 
Source of input. 

Blank = disk. 

5 = card. 

3 = paper tape. 
(Note that card or paper tape 
input must be in System Output 
format). 



={=4" ( identification record 
marks ) . 

Operation (xeqs). 

Name of user's program to be 

executed (same name assigned 

in Equivalence table). 

DIM (Disk Identification Map) 

entry number. 

Note that either the name or the 
DIM entry number must be given 
(if program is in disk storage), 
but if both are given, the name 
takes precedence. 
Address where loading of user's 
SPS object program begins if pro- 
gram is not in core image. If not 
supplied, address 02402 is as- 
sumed. 

Address where execution of 
user's SPS object program begins 
if program is not in core image. 
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This address must be relative to 
the start of the program if the 
program is relocatable; other- 
wise, the absolue entry address 
must be supplied. 

27 Source of input, 

Blank = disk. 

5 = card. 

3 = paper tape. 
(Note that card or paper tape 
input must be in System Output 
format). 

28 Subroutine set identification 
number for Fortran programs 
only, 

29-30 Control card count (number of 
LOCAL control cards) for For- 
tran programs only. 

* 31-32 sps subroutine set identification 
number (e.g., 01 = fixed-length 
subroutines, etc.) 

*33 N (Noise) digit for sps subrou- 
tines. 

*34-35 Two digits for indicating length 
of mantissa for sps subroutines. 
* Required only when the program to be executed uses 
other than the standard operating specifications (02 
standard subroutine set, 0 standard N digit, 08 stand- 
ard mantissa length ) . 

(End-of-Job). 
Columns 1-2 (identification record 

marks ) . 

3-4 Operation (=|==|=, end-of-job). 
Comments Records 

Comments records — in card, paper tape, or type- 
writer form — can be used to specify operating in- 
structions and identify each job. Any number of these 
records may be inserted in front of a job in the stack- 
ed input. Usually they are inserted behind a job 
Monitor Control record. Comments records, unlike 
Monitor Control records, have no control over the 
Supervisor. When Comments records are encountered 
in the stacked input, they are typed out. The format 
of the Comments record in terms of cards follows: 
Columns 1-2 ( identification record 

marks ) . 

3-6 Operation (blanks or any com- 
bination of letters and/or digits 
oilier than the eleven monitor 



pseudo operation codes, job, sps, 
spsx, etc.). 
7-80 Comments. 
When the Supervisor Program reads a Comments 
card, it will pass subsequent cards until another card 
with =j= columns 1-2, is encountered. Therefore a 
Comments card should be followed by another Com- 
ments card or a Monitor Control card. 

Module Change Numbers 

Module change numbers, punched in card columns 
8-11 of the JOB Monitor Control cards, can be used 
by the operation on 1620 Systems with more than one 
1311 Disk Storage Drive to alter the normal assign- 
ment of disk storage drives for any job. For example, 
a job that uses drive 0 in the execution of its pro- 
gram could use drive 1 instead of drive 0 by the 
entry of a job Monitor Control card with the appro- 
priate module change numbers. 

Card columns 8, 9, 10, and 11 of the job card 
represent disk storage drives 0, 1, 2, and 3, respective- 
ly. A change to the normal program assignment of a 
disk storage drive is made by punching the number 
of the substitute drive into the card column which 
represents the normal drive. Therefore, in the preced- 
ing example, a digit 1 would be punched into card 
column 8 to alert the program that drive 1 should be 
used for the job instead of drive 0. Card columns 9, 
10, and 11 could be left blank because only the assign- 
ment changes must be punched. The assignment of 
disk storage drives, placed in effect by a job card, 
remains in effect until changed by a succeeding job 
card. 

To overlap the time required to change disk packs 
for one job with the processing time for a different 
job, the operator may choose to alternate the use of 
disk storage drives from one job to the next. Alter- 
nating drives is possible only when all drives are not 
in use for any one job. For example, assume that job 
A is to be followed by job B in the stacked input and 
the programs for both of these jobs use disk storage 
drives 0 and 1. Assume further that four disk storage 
drives are available to the 1620 System that is to per- 
form these jobs. By entering a module change number 
in the job Monitor Control card for job B, the oper- 
ator can use disk storage drives 2 and 3 for job B in 
place of drives 0 and 1. Therefore, while job A is 
being done, the operator could mount the disk packs 
for job B on drives 2 and 3, thus saving valuable oper- 
ating time. The job card module change numbers 
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should be punched 
Card columns 





8 


9 


10 


11 


numbers 


2 


3 







so drives 2 and 3 will be used in place of drives 0 
and 1, respectively, for job B. 

Disk Pack Identification Numbers 

Card columns 12-31 of the job Monitor Control card 
can be punched with the four 5-digit disk pack identi- 
fication numbers, one identification number for each 
disk storage drive. 

Disk Pack Disk Storage 

Identification Number Drive 



Card columns 12-16 
17-21 

22-26 
27-31 



The disk pack identification number from the job 
card is compared with the identification numbers re- 
corded on the respective disk packs. If the proper 
disk packs are not attached by the operator, the 
Supervisor will halt for operator instructions. If it is 
desired to omit this check for any disk storage drive, 
the card field representing the disk storage drive may 
be left blank. When the operator enters a module 
change number, no change to the disk pack identi- 
fication numbers (card columns 12-31) is required. 



Stacked Input 

Stacked input consists of control records (Monitor, 
Disk Utility Program, sps, and Fortran), source pro- 
grams, object programs, and data arranged logically 
by job. Each job consists of phases which must fit into 
one of four categories: 

1. sps source program(s) to be assembled, 

2. FORTRAN source program(s) to be compiled. 

3. Disk Utility routine(s) to be executed. 

4. FORTRAN or SPS objcct program(s) to be called 
from disk storage with subroutines and executed; 
or SPS program(s) to be called from disk storage 
without subroutines and executed. 

The order in which jobs are executed is not impor- 
tant, i.e., a Disk Utility routine may be executed be 
fore a Fortran compilation or vice versa. Jobs are 
executed in the order in which they are encountered 
in the stacked input. Each job must be preceded by a 
JOB Monitor Control card and followed by an end-of- 
job (4=4=4=4=) Monitor Control card. 

Job Arrangement 

A Disk Utility, Fortran or sps job is always represent- 
ed by at least three Monitor Control records. 



Card 

1. JOB Monitor Control 
Record 

2, DUP, SPS, SPSX, FOR, 
FORX, XEQ, or XEQS, 

Monitor Control 
record 



Purpose 

Identify beginning of 
job. 

Transfer control to Disk 
Utility Program, For- 
tran compiler, sps As- 
sembler, user's object 
program. 
Identify end of job. 



3. End-of-job Monitor 

Control record. 

In addition to the Monitor Control records, there 
may be one or more Disk Utility Program, sps or 
FORTRAN system control records. These records are a 
part of the input for the individual system. 

TYPE or PAUS Monitor Control records may be insert- 
ed immediately preceding any of the records in the 
above sequence. Any number of Comments records 
may be inserted in front of type 2 records. Source 
programs or input data can be entered immediately 
following type 2 records. 

The following three points must be taken into con- 
sideration when arranging the input for any job. 

1. All Monitor Control records, with the exception 
of Monitor records that follow a type Monitor 
Control record, must be read from the same in- 
put source. The input source can only be chang- 
ed at the beginning of each job or by a type 
Monitor Control record. 

2. A job, with the exception of a Disk Utility job, 
may consist of several system functions possibly 
terminated by execution of a user's program. Ex- 
ecution of a user's program is considered as the 
end-of-job. If any cards remain in the stacked 
input for a job when it is ended in this manner, 
they will be passed without processing. Process- 
ing resumes with the first Monitor Control card 
of the next job in sequence. 

3. If an error is detected in an sps assembly or 
FORTRAN compilation, the resulting object pro- 
gram or any programs that follow within the job 
cannot be executed. 

Examples of stacked jobs are given in Figure 4 and 
Figure 5. In these examples: 

Job A assembles two sps source programs and stores 
the assembled programs in disk storage. The second 
SPS program is executed after assembly. This job in- 
cludes Comments cards to instruct the operator and a 
PAUS Monitor Control card to allow the operator to 
intervene and change program switch settings. 

Job B compiles and executes a Fortran source 
program. 

Job C replaces an existing object program in disk 
storage with a new object program and copies a pro- 
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gram from disk-to-disk. Job C calls a program from 
disk storage with subroutines and executes it. 

Monitor Confrol Record Analyzer Rouiine 

This routine, a part of the Supervisor Program, is used 
to read the Monitor Control records and Comments 



records, which are identified by ^= #= ^ columns 
1-2, and to analyze these records, and to perform the 
operations or transfer control as directed by the 
pseudo operation codes. The first Monitor Control 
record is read from the input source that is specified 
by the operator when the Supervisor Program is orig- 
inally loaded into core storage from disk storage to 
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Figure 4. Stacked Input, SPS and FORTRAN Jobs 
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start the entire operation. Subsequent Monitor Con- 
trol records and Comments records are read from the 
same input source until a job Monitor Control record 
changes the input source by specifying a different 
"source of input" or a type card is encountered. Read- 
ing of Monitor Control records continues from the 
new source until again changed by another job Moni- 
tor Control record. 

When the input source is the "typewriter," the 
Monitor Control Record Analyzer routine t5^es the 
message 

ENTER MONITOR CONTROL RECORD 

The operator may then enter the next control rec- 
ord. The record is not typed out if the entry is made 
by the typewriter. 

If the operator makes a mistake while entering the 
record, he may correct the error by turning on Pro- 
gram Switch 4 and depressing the R-S key on the 
t)^ewriter. Switch 4 should then be turned off and 
the entire record re-entered. 

When an sps, spsx, for, fobx, dup, xeq, or xeqs 
Monitor Control record is read, control is transferred 
from the Analyzer routine to the individual program 
specified by the control record. Control is returned to 
the Analyzer routine after the program is executed. 
When control is returned, the Analyzer routine will 
pass records, provided the input source is other than 
the typewriter, until a Comments or Monitor Control 
record is encountered in the stacked input. Therefore, 
the last job to be executed should be followed by a 
TYPE or PAus control card. If this control card is not 
present, the 1620 will stop on a Read Select instruc- 
tion, expecting another control card. 

ERROR MESSAGES 

During execution of the Monitor Control Record 
Analyzer routine, certain error messages may be 
typed. After typing a message, the 1620 will stop if 
any operator action is required. A list of these mes- 
sages, the conditions which cause them, and the cor- 
rective actions required of the operator, follows. 



Message 



Cause 



Action 



ERROR IN FIELD AT COL. XX. 
SET SW4 TO IGNORE, OFF TO 
RE-ENTER CARD 
An illegal character has been de- 
tected in a job Record data field. 
To ignore the error turn Program 
Switch 4 on and depress the Start 
key. The message "CONDITION 
IGNORED" is typed and process- 
ing continues. To correct die error, 



Message 

Cause 
Action 



Message 
Cause 



Action 
Message 

Cause 

Action 

Message 
Cause 

Action 

Message 
Cause 



Action 
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turn Program Switch 4 off and de- 
press the Start key. The Monitor 
Control record input source will be 
changed to the typewriter, and the 
operator may then re-enter the 
control record. If it is desired to 
read succeeding records from the 
original input source, column 7 
must identify the input source. 

PACK NUMBER. ERROR ON 
MODULE X. SET SSW4 TO IG- 
NORE OFF TO RECOMPARE 
Disk pack identification numbers 
compare "unequal." 
To ignore the error, turn Program 
Switch 4 on and depress the Start 
key. The message "CONDITION 
IGNORED" is typed and process- 
ing is resumed. To correct the error, 
place the correct disk packs on the 
disk drives and depress the Start 
key. The disk pack identification 
number will again be checked by 
the program. If the pack involved 
was a Monitor pack, the instruction 
sequence previously described un- 
der operation must be repeated. 

END OF JOB 

The end of a job has been reached. 
(This message will not be typed, if 
the input source is the typewriter. ) 
None required. 

CANNOT RESTORE COMMON 
-RESET AND START TO RETRY 
Common area does not read into 
core storage from disk storage cor- 
rectly. 

Depress Reset and Start keys to re- 
try the read operation. 

EXECUTION 

Loading and execution of user's ob- 
ject program has started. 
None required. 

JOB CARD GROUP ONLY 
Control Record Analyzer routine is 
expecting a job, type, or paus Moni- 
tor Control record, but it does not 
find one. 

Enter job, paus, or type. Monitor 
Control record from typewriter and 
depress the Release and Start keys. 
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Message 
Cause 

Action 



Message 
Cause 



ERROR IN FIELD AT COLUMN 
XX. PHASE TERMINATED 
A Monitor Control record contains 
an invalid code in the field start- 
ing at column xx. 

The phase is skipped and the su- 
pervisor will pass records from the 
control record source until it en- 
counters the next Monitor Control 
record. 

EXECUTION IS INHIBITED 

An error has occurred within a job 
which may prevent successful ex- 



Action 

Message 
Cause 

Action 



ecution of the user's object pro- 
gram. 

None required. No user object pro- 
gram can be executed until the 
next JOB Monitor Control record 
is encountered. 

OBJECT DIM ERROR PHASE 
TERMINATED 

The Supervisor is unable to find 
the DIM entry specified by an xeq 
or XEQs control record. 
None required. The phase in which 
the error occurred is terminated 
and processing continues. 




Figure 5 Stacked Input, DUP,and XEQS Jobs 
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Message 
Cause 



Action 

Message 

Cause 

Action 



OBJECT NAME ERROR PHASE 
TERMINATED 

The Supervisor is unable to find a 
name in the Equivalence table 
which corresponds to the name 
supplied in an xeq or xeqs control 
record. 

None required; the phase is termi- 
nated. 

ENTER MONITOR CONTROL 
RECORD 

A "d= 4= type" Monitor Control 
record has been encountered. 

Enter a Monitor Control record 
from the typewriter. (Monitor in- 
put source is changed to the type- 
writer. ) 

SYSTEM DIM ERROR PHASE 
TERMINATED 

Supervisor is- unable to find dim 
entry for sps assembler, fortra^n 
compiler, or Disk Utility Program. 

None required; the phase is termi- 
nated. 



Message 
Cause 

Action 
I/O Routine 

The I/O routine is designed to relieve programmers 
of the necessity for writing input/output subroutines. 
The I/O function is performed automatically by the 
I/O routine. Therefore, the programmer can concen- 
trate on describing his files and disregard the actual 
operation of the I/O function. Provision is also made 
in this routine for error detection and correction. I£ 
Parity, Wrong-Length Record Check, or Address 
Check disk errors occur in a disk operation, the routine 
will repeat the operation which had the error, up to 
nine times, in an attempt to correct the error. The 
Monitor System uses this routine for I/O operations. 

The I/O functions performed by the I/O routine 
include reading and punching cards or paper tape, 
reading or writing typewriter, reading or writing disk 
records, and seeking disk cylinders. These functions 
may be used in an sps object program by entering 
I/O macro-instructions (get, put, seek, or call) in 
the user's source program. These macro-instructions, 
as well as the associated declarative statements for de- 
fining declarative constants (dtn, dta, etc.), are de- 
scribed in the section concerping sps ii-d. 



All linkages for I/O routines are generated auto- 
matically through the use of macro-instructions in 
SPS source programs or the I/O statements (e.g., find, 

RECOBD, FETCH, PUNCH, BEAD, CtC. ) in FORTRAN 

source programs. The data and addresses supplied in 
a macro-instruction or the parameters in a Fortran 
statement are incorporated into the linkage instruc- 
tions where they are made available for use by the 
I/O routine. 

Each time the I/O routine is entered as the result 
of an SPS macro-instruction or Fortran statement, 
the read, write, and parity check indicators are turn- 
ed off. If a read or write error occurs that cannot be 
corrected without operator intervention, an error 
message is typed and the program halts. A restart 
procedure is specified for all error conditions (see i/o 
error routine). An error count is maintained by the 
I/O routine for inspection by the user or for diagnos- 
tic analysis by an ibm Customer Engineei^. 

In addition to using the I/O routine with sps macro- 
instructions and FORTRAN statements, the routine may 
be used by coding the general form of I/O routine 
linkage directly in the user's program. 

I/O Routine Linkage 

General Form. 

TFM lORT, * + 23 

B ENTRY, DEF, 7 

iort is the address (00565) of a 5-position stor- 
age area in the I/O routine. 

ENTRY may be any one of the four possible entry points 
in the I/O routine represented by the following 
symbolic addresses: 



Entry Point 



Actual 
Address 



lORBC 00520 



lOPT 

lOSK 
lOGT 



00532 

00554 
00566 



Function 
Write record into disk stor- 
age with Read-Back 
Check. 

Write a record to an out- 
put device. 

Seek a disk record. 
Read a record from an in- 
put device. 

DEF can be the address of any I/O declarative con- 
stant ( see l/o CONSTANTS ) . 

CALL LINK or CALL LOAD Linkage. These link- 
ages are usually used to call programs from disk stor- 
age, with or without execution. Linkages may be in 
either a short or long sequence form. Both forms are 
alike with the exception that the long sequence form 
contains a relocation address. 
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Short Sequence 






lUnl, 


, 1 1Q 


Joy 


ir\r> A T 
lUCAJL 




DC 


1 Mn 




DC ^ 






or 


1, Ml 




DSC . 






DSC 


1,0 




DC 


5, IIII (g) 




Long Sequence 




TFM 


lORT, * 


1 IQ 


B7 


lOCAL 




DC 


1, Mo 




DC ~ 






or 


l,Mi 




DSC J 






DC 


1,0 




DC 


4, IIII 




DSA 


LLLLL 




DSC 


1,@ 





lOCAL is an entry to the I/O routine (core storage 
address 00716). 

Mo Ml is a constant 32 for call linkages. Mi is flag- 
ged for CALL LINK only. 

im is the dim entry number of the program to be 
called. 

LLLLL is the relocation core storage address where the 
program is to be loaded. 

If the short sequence is used to call a relocatable 
program, lllll is assumed by the I/O routine to be 
the address contained in the "high" indicator field of 
the Communications Area. If the long sequence is 
used to call a core image program, the I/O routine 
will disregard lllll. 

Note: The contents of all index registers are destroyed 
whenever the sps macro-instructions call link or call 
LOAD are executed. Also, if the called program requires 
subroutines, the "no index register" mode is selected; 
thus, it is the user's responsibility to turn the index 
registers on again when needed. 

CALL EXIT Macro-Instruction Linkage. 

B7 MONCAL 

MONCAL (core storage address 00796) is an entry 
to the I/O routine which will call in the Monitor 
Control Record Analyzer routine. 

CALL exit linkage is used at the end of the execution 
of an object program to return control to the Moni- 
tor Control Record Analyzer routine to read another 
Monitor Control record. If, during execution of an 
object program, an error is encountered which will 
not allow normal exit to the Analyzer routine, the 
operator may manually branch the program to 
MONCAL ( 00796 ) to resume processing. 
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I/O Constants 

An I/O constant for card, paper tape, or tj^ewriter 
consists of eight digits. 

I CCCCC Mo Ml ^ 

Iccccc is the address of an I/O area. 
Mo Ml is one of the following codes which identifies 
the operation: 

00 Typewriter Numerical 

02 Paper Tape Numerical 

04 Card Numerical 

06 Typewriter Alphameric 

08 Paper Tape Alphameric 

10 Card Alphameric 

Disk I/O constants may be in any of the following 
four forms: 

1. Mo Mi_pDDDD_4= 

2. MoMi DDDDD LLLLL 

3. Mo Ml 0 IIII LLLLL 4= 

4. Mo Ml 0 IIII ^ 

DDDDD is the address of the leftmost position of the 
associated disk control field. 

LLLLL is a relocation core storage address of a pro- 
gram to be called. 

nil is the dim entry number of a program to be called. 

Mo and Mi provide various disk options for the user. 
A list of these codes and their associated options 
follows. 

Mo (code) Option 

0 Add the starting address of the 

work cylinders from the Com- 
munications Area (core positions 
422-425) to the sector address 
in the disk control field. (Used 
with constant types 1 and 2 
only. ) 

1 Same as option zero, except the 

"high'lndicator in the Commu- 
nications Area will also be up- 
dated for disk read operations 
only. This indicator is merely a 
field which contains the core 
storage address of the highest 
position to be loaded plus one. 

2 Use the sector address in the disk 

control field for the disk opera- 
tion (seek, read, or write). 
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3 Use the sector address in the disk 

control field for the disk opera- 
tion. Also, update the "high" in- 
dicator in the Communications 
Area for read operations only. 

n A flag over the code n, ( n = 0, 1, 2, 

or 3) causes the read/write 
heads to be repositioned to an 
assigned cylinder (specified in 
the Communications Area) after 
any disk I/O operation, except 
seek. 

Ml (code) Option 

0 Disk read or write in sector mode 

with WLRC. Note: The user must 
place a group mark (^) in the 
core storage location following 
the last character position of the 
last sector of the record. 

2 Disk read or write in sector mode 

without WLRC. 

4 Disk read or write in track mode 

with WLRC. NOTE: The user must 
place a group mark (^) in the 
core storage location following 
the last character position of the 
last sector of the record. 

6 Disk read or write in track mode 

without WLRC. 

n A flag over code n(n = 1, 2, 4, 

or 6) causes the I/O routine to 
branch to a given address after 
a disk read operation. The given 
address will be the "execution 
address" if an extended disk 
control field is used. Otherwise, 
it will be the "core address" of 
the disk control field. If code n 
is unflagged, the I/O routine 
will branch to the first instruc- 
tion following the disk opera- 
tion calling linkage iivthe object 
program. If the entry address is 
not specified, the entry is made 
to the (possibly relocated) first 
card address of the deck to be 
loaded. 

DISK CONTROL FIELD 

The disk control field, associated with I/O constants, 
types 1 and 2, may be in either of the following for- 



mats: 

DDDDDD SSS CCCCG =^ 
DDDDDD SSS CCCCC EEEEE 

DDDDDD is the first sector address of the data or pro- 
gram. 

SSS is the number of sectors to be read or written. 

CCCCC is the core address ( must be an even-numbered 
address) of the data or program. 

EEEEE is the execution address where program execu- 
tion is to continue after a disk read operation is 
completed. The second disk control field, known as 
an extended disk control field, is used when Mi of 
the I/O constant is flagged. 

Card I/O 

Cards are read or punched in alphameric or numer- 
ical form from a user-specified constant (generated 
from an I/O declarative statement) designated in 
general linkage. If a punch error is detected during 
a write instruction, the instruction is again executed 
to correct the error. If the error persists or a parity 
error occurs during a write operation, an error mes- 
sage is typed and the program halts (see i/o error 
routines). Error messages will be typed for all read 
errors. 

Typewriter I/O 

A specified I/O declarative constant designated in 
general linkage will be used by read or write type- 
writer instructions (alphameric or numerical). If a 
read error or a parity error occurs during reading, the 
program will branch back to the read instruction and 
await entry of data. The operator can then type in the 
data and return control to the program. If a parity 
error or write check occurs during writing, it will be 
counted and the indicators will be turned off ^ but 
the program will not halt. Control operations (rcty, 
SPTY, TBTY ) are not executed in the I/O routine. These 
must be handled in the main program coding. 

Paper Tape I/O 

Paper tape is read or punched in alphameric or nu- 
merical form from a specified I/O declarative con- 
stant designated in general linkage. If a parity read 
error occurs during a read operation, an error message 
is typed and the program halts. 

Disk Storage I/O 

Disk storage will be read or written as specified by 
the I/O declarative constant designated in general 
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linkage. Also, disk seek operations will be initiated to 
disk addresses contained in the I/O declarative con- 
stant designated in general linkage. For a call macro- 
instruction, disk data records or programs will be 
written in the area of core storage designated by the 
relocatable address in call linkage. If this address is 
not present for a relocatable program, the processor 
selects the address. If the relocation address is present 
but the program is not relocatable (i.e., it is in either 
Absolute or Core Image format), the relocation ad- 
dress is ignored and the program is stored at the core 
address specified by the dim entry. 

Disk storage indicators are reset by the I/O rou- 
tine. If the Cylinder Overflow indicator (38) is turn- 
ed on before the sector count reaches zero, a seek to 
the next cylinder is initiated and reading or writing 
is resumed. If read, write, or parity indicators, or in- 
dicators 36 or 37 are turned on, the instruction associ- 
ated with the error will again be executed up to nine 
times. If the error persists, an error message is typed 
and the program halts. 

The seek only linkage 

TFM lORT, * + 23 
B lOSK, DEF, 7 

will allow computing time and seek time to overlap. 
DEF refers to any disk I/O constant. 

The cylinder location of the arm on each drive is 
entered into a list by the I/O routine. Every time the 
I/O routine executes a disk operation, the current 
entry cylinder is compared to the previous cylinder 
and the arm is instructed to seek only if it is not al- 
ready located at the current cylinder. 

REPOSITIONING OF ACCESS ARMS 

The I/O routine contains four 2-digit cylinder indi- 
cators that can be used to reposition the access arm 
on each of the four possible disk drives to a new 
cylinder following a read or write operation. The four 
cylinder indicator core storage locations and their 
associated drives follow: 



Indicator Addresses Drive 
00512 - 00513 0 
00514 - 00515 1 
00516 - 00517 2 
00518 - 00519 3 



These indicator positions are reset to 00000000 by 
the Monitor Control Record Analyzer routine. There- 
fore, a program which uses other cylinders for re- 
positioning must provide for changing the indicators. 

Repositioning the access arm following a get or 
PUT macro-instruction is optional. If Mq of the I/O 
constant used by a get or put is flagged, the read/ 
write heads will be repositioned. 



full TRACK OPERATION 

If any I/O operation is to be attempted with the 

Write Address light on, the programmer must set a 
flag at OLDDA + 14 (core position 00455) before en- 
tering the I/O routine. The flag will prevent accumu- 
lating error counts (which is a write disk sector oper- 
ation). The flag must be cleared before terminating 
the routine in which the Write Address light "on" 
condition is present. 

If an I/O operation is attempted with the Write 
Address light on, no flag present at oldda -|- 14, and 
an indicator 06, 07, 16, 17, 36, 37, or 38 on or turned 
on by the I/O operation, the program will stop with 
the instruction at 00728. To save the error count, the 
operator must (1) turn the Write Address light off, 
(2) depress the stop/sie key, (3) turn the Write 
Address light on, if desired, and (4) depress the Start 
key to resume automatic operation. 



I/O Error Routine 

Each time the I/O routine begins execution, it tests 
indicator 19 ( any check ) to determine if an error had 
occurred prior to entry. If the indicator is on, the I/O 
error routine will be called into core storage and ex- 
ecuted. This routine records a count of errors by type 
(for indicators 06, 07, 16, 17, 36, 37, and 38), and pro- 
vides the necessary error messages and corrective op- 
erating options. In addition the error routine turns 
off the individual indicators (06, 07, 16, 17, 36, 37, and 
38), by testing them. 

After an I/O function is executed, indicator 19 is 
again tested. If it is on, the I/O error routine is en- 
tered to process the error. 

Error Detection and Correction 

During execution of the I/O error routine, error mes- 
sages are typed to describe errors and the operator is 
allowed to intervene to decide how errors should be 
treated by the program. A list of error correction 
options available to the operator follows. 

Error Correction 

Code Option 
00 Ignore the error. When this option 

is used, the I/O routine will fin- 
ish processing the I/O operation 
as though the error had not oc- 
curred. 

05 Re-execute the I/O operation. If 

an error recurs during the next 
execution, an error message is 
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again typed, the computer stops, 
and the operator can exercise the 
same option or another option. 

10 Skip this phase of the job if error 

occurs at system time (sps as- 
sembly, FORTRAN compiling, 
Disk Utility Program, or Super- 
visor Program execution time) 
and return control to the Mon- 
itor Control Record Analyzer 
routine and pass records to the 
next Monitor Control record. 

15 Discontinue execution and return 

control to the Monitor Control 
Record Analyzer routine and 
pass records to the next job 
Monitor Control Record. 

20 Continue processing by branching 

to a specified core storage ad- 
dress without further processing 
of the I/O request. When this 
option is exercised, the operator 
enters the 5-digit branch ad- 
dress from the typewriter. 

After each error message is typed, the computer 
halts. The operator then depresses the Start key, en- 
ters a 2-digit error correction code from the type- 
writer, and depresses the R-S key to resume pro- 
cessing. 

If an error is made while entering a 2-digit cor- 
rection code, it may be corrected by turning Program 
Switch 4 on, depressing the typewriter R-S key, turn- 
ing Program Switch 4 oflF, and re-entering the 2-digit 
code. 

The I/O error routine has the facility to handle any 

of the following errors. 

Entry Check 
Typewriter write 
Typewriter read 
Paper tape read 
Card write 
Card read 
Cylinder overflow 
Write error count 
Illegal DIM entry 
System 

Unavailable disk drive 
Control record trap 

Error messages, conditions, and corrective operator 
action associated with each type of error is described 
as follows: 

Entry Check. If indicator 19 (any check) is on, 



when tested in the preprocessing phase, the message 
ENT ERROR 06071617363738 

is typed on the console typewriter. Each pair of in- 
dicator numbers is flagged in the leftmost digit. If an 
indicator was on when tested, the rightmost digit 
will also be flagged. 

Typewriter Write. For this error, no error message 
is typed; however, the error is automatically indicated 
by over-printing the error character(s) with a hori- 
zontal line. 

Typewriter Read. For this error, the message 
TYP ERR 

is typed.To restart the computer, the operator exer- 
cises one of the error correction options. 
Paper Tape Read. The message 

PTR ERR 

is typed. The operator must backspace the tape to the 
beginning of the record before exercising error 
option 05. 

Card Write. For this error, the I/O error routine 
retries the operation once for a write check error ( indi- 
cator 07). If the error is corrected by the retry, con- 
trol is returned to the I/O routine; if the error is not 
corrected, the message 

CDP ERR 

is typed. The error option can then be exercised by 

the operator. 

Card Read. For this error, the I/O error routine 
retries the operation once for a read check error 
(indicator 06). If the error is corrected by the retry, 
control is returned to the I/O routine; if the error, is 
not corrected, the message 

CDR ERR 

is typed. The error option can then be exercised by 
the operator. 

Cylinder Overflow. For this error, the I/O error 
routine tests to determine if a legitimate overflow has 
occurred during a disk read or write operation. For 
a legitimate overflow, a seek operation to the next 
cylinder is automatically initiated and reading or writ- 
ing continues. A maximum of three seek operations 
will be performed if sufficient core storage is available 
to accommodate the data being read or written. 

If the disk read or write operation results in an at- 
tempt to xead or write data beyond the highest sector 



Supervisor Program 21 



address of the addressed disk module, the message 
DSK OFL 

is typed. All error correction options, except 05, are 
available to the operator. If 05 was inadvertently en- 
tered, it would have the same effect as error correc- 
tion option 00. 

For a disk error, which is other than a legitimate 
overflow, the disk read or write operation causing the 
error is retried up to nine times; if this fails to cor- 
rect the error, the message 

DSK ERR XXXXX 06071617363738 

is typed, where XXXXX is the 5-digit return ad- 
dress to the object program. A flag is typed over the 
leftmost position of each pair of indicator numbers. 
The indicator(s) which identifies the type of error 
will also be flagged in the rightmost position. If indi- 
cator 38 is flagged in its rightmost position, it may 
mean either of two things: 

1. A legitimate overflow did occur, but another 
type of error occurred in attempting to trans- 
mit data to or from the succeeding cylinder. 

2. A machine malfunction occurred. 

If the operator exercises error correction option 05, 
but this does not correct the error, he should turn the 
Disk, Parity, and I/O Check switches to stop, and 
again exercise option 05. The console lights may then 
be examined to determine the nature of the error. 

If a legitimate cylinder overflow condition occurs, 
a seek operation to the next cylinder is automatically 
initiated and reading or writing continues. 

Write Error Count. If an error occurs while the I/O 
error routine is writing the error count in disk stor- 
age, the message 

BAD DISK WRITE. RESET START 

will be typed. In this case, the operator does not 
exercise an error correction option, but he must: 

1. Clear the Select-Lock light, if it is on. 

2. Depress the Reset and Start keys. 

Illegal DIM entry. If the user supplies an illegal 
DIM number (not in dim table) in a caul statement, 
the I/O routine will transfer control to the I/O error 
routine and the message 

MAP ERR XXXXX IIII 

is typed, where xxxxx is the core storage position im- 
mediately following the call linkage, and iiii is the 
illegal DIM entry number. The operator then enters 
error correction code 00 and depresses the Release 
and Start keys. The computer will again halt. The 



operator must then type in a corrected 4-digit dim 
entry number and depress the Release and Start keys. 

System. If the I/O error routine cannot interpret 
the nature of the error, the message 

IMP ERR 

is typed and control is returned to the Monitor Control 
Record Analyzer routine without stopping to allow 
operator intervention. 

In addition to the system error just described, the 
computer may halt in the I/O routine at core storage 
address 00467 without typing a message. This halt 
occurs if a read error occurs while the I/O routine is 
reading one of its subroutines from disk storage. To 
retry the operation, the operator should 

1. Clear the Select-Lock light if it is on. 

2. Depress the Reset and Start keys. 

If this error persists, it may mean either of two things. 

1. The user inadvertently altered the I/O routine 
in core storage. 

2. A machine malfunction occurred. 
Unavailable Disk Drive.. If the programmer speci- 
fies a logical module for which there is no physical 
disk storage drive, the message 

MOD ERR XXXXX 

is typed, where xxxxx indicates the return address to 
the object program. The operator must enter the error 
correction code 00 and depress the Release and Start 
keys. The computer will again halt. The operator 
must then enter a corrected 1-digit drive code and 
depress the Release and Start keys to continue. 

Illegal Drive Code. If the user gives an illegal drive 
code in the disk control field for a disk operation, the 
message 

MOD ERR XXXXX 

is typed, where xxxxx is the 5-digit return address 
to the object program. To continue, the operator 
should enter an error correction code 00 and depress 
the Release and Start keys. The computer will halt 
to allow the operator to enter a corrected 1-digit 
drive code from the typewriter. Depress the Release 
and Start keys to resume operation. 

Control Record Trap. To prevent the I/O routine 
from inadvertently reading a control record as a data 
record, the I/O routine is designed to trap control 
records, if they are read from the Supervisor input 
source. Each record read is tested for rt =}= in its first 
two positions. If present, control is transferred to the 
I/O error routine and the message 

TRP ERR 

is typed. If the control record was read in numerical 
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mode and it was not an end-of-job record (=]==|=r:j=z:)=), 
an additional message is typed: 

MUST RELOAD 

The operator then depresses the Start key and re- 
enters the record. The Monitor Control Record Ana- 
lyzer routine assumes control and processes the trap- 
ped control record. If the control record was read in 
alphameric mode, it is processed in the normal man- 
ner by the Supervisor. 



Programs are sequence checked as they are loaded 
if input is from cards. This check is performed on the 
last five digits of each input record. If any records 
are out of sequence, an error message is typed and 
the operator is allowed to intervene to correct the 
sequence error. Patch cards may be interspersed with 
other cards of an object program to be loaded. 

The sequence number of card input appears in 
columns 76-80. Sequence numbers start with 00001 
and must have a flag over their leftmost position in 
order to be sequence checked. 



Error Count Retrieval Routine 

Each time an error is detected by the I/O error rou- 
tine, an error count is incremented by one. An error 
count is maintained for each of the following error 
indicators: 

06 Read Check 

07 Write Check 

16 MBR-E Check 

17 MBR-o Check 

36 Address Check 

37 WLR-BBC 

38 Cylinder Overflow 

The error counts can be typed out and reset to 
zeros by entering the following instructions and data 
from the typewriter: 

34 00032 00701 
36 00032 X0702 
49 00070 0 

11975400100046 (disk control field) 

X is the drive code for tlie Monitor II System. 

The Release and Start keys are depressed to start 
the operation. The seven indicator counts are then 
typed in sequence in 14 consecutive positions with 
a flag over the leftmost position of each count. 

XX XX XX XX XX XX XX 
The error counts are reset to zeros after the typeout. 



Loader Routine 

The Loader routine, a part of the Supervisor Program, 
is used to load users object programs into core stor- 
age from cards, paper tape and disk storage. To per- 
form the loading function, the Loader routine is called 
into core storage whenever an object program is to 
be loaded into core storage. The user's object program 
could be any program in System Output format. 



System Output Format 

The general format in which Fortran n-D and sps ii-d 
object programs will be outputted to paper tape, disk, 
and cards is shown below: 

Columns 1-5 Address of data. 

6 Indicator code. 

7-8 Length of data. 

9-75 Data, indicator codes, etc. 

76-80 Sequence number. 

Patch cards should be prepared in the same format. 
However, the sequence number must be all zeros 
without flags. All patch cards must precede the card 
that defines the end of a relocatable program (see 
INDICATOR CODE 6). The entries shown above are de- 
scribed as follows: 

Note: The descriptions given here will be in terms of 
cards; however, paper tape and disk formats will be 
the same with the exception of the sequence number. 

Address of Data — This entry will always refer to 
the location where the first digit of data on the card 
is to be loaded. This entry will appear in columns 
1 through 5 of a reloadable card. The address is an 
absolute address, i.e., no relocation increment (pre- 
suming this program is relocatable) has been added 
yet. 

Indicator Code — This 1-digit entry is used to either 
define the type of data that is to follow or to con- 
vey certain loading instructions to the loader. There 
are thirteen different indicator codes that may be 
used; some are applicable to sps n-D only ( see indi- 
cator codes). 

Length of Data — This field is used in conjunction 
with certain indicator codes (1, 2, 2, 3, 3, 4, 4) to 
specify how many digits of data are to follow. With 
other indicator codes, this field becomes part of a 
larger field and assumes a different role. 
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Data — This field contains actual data to be loaded. 
Data may be instructions, constants, etc., depend- 
ing upon the indicator code. All instructions for re- 
locatable programs will contain flags over Oo, Oi 
of the operation code to specify if the P and Q ad- 
dresses, respectively, should be incremented by the 
relocation address. If patch cards are prepared, 
these flags must be punched for addresses to be 
adjusted. Instructions of programs in absolute for- 
mat must not be flagged. 

INDICATOR CODES 

Although the output format is shown divided into 
specific fields, these same fields do not always make 
up the columns that are indicated. As will be seen 
by the descriptions of the various indicator codes, the 
format varies considerably as the type of data on the 
card changes. 
The indicator codes are described as follows: 

Note: Those codes marked with an asterisk are used 
in sps n-D output only. 

4= — This digit indicates that a change is being 
made in the sequence of loading addresses 
for the program. The five digits that follow 
the record mark denote the new address or 
origin. After the 5-digit address, there will 
be another indicator code to define the data 
that follows. 

4= — This digit is used whenever the data that 
follows is an instruction or relative address 
which cannot be fully contained before the 
seventy-fifth column of the card has been 
reached. 

* 0 — This digit is used when a tra-tcd declara- 

tive combination is assembled in any re- 
locatable SPS program. The five digits that 
follow the zero constitute a branch address 
for entrance to a routine. 

* 0 — This digit is used in the same manner as 0 

above, except the flag denotes an sps pro- 
gram with absolute addresses. 

1 — This digit indicates that the data to follow 

after the "length of data" field are instruc- 
tions. 

2 — This digit indicates that the data following 

the "length of data" field are constants that 
are to be relocated. 

2 — This digit indicates that the data following 

the "length of data" field are constants that 
are not to be relocated. 

3 — This digit indicates that the data following 

the 'length of data" field are relative ad- 
dresses to be relocated. 



* 3 — This digit indicates that the data following 

the "length of data" field are relative ad- 
dresses that are riot to be relocated. 

* 4 — This digit is used to supply numeric blanks 

when a relocatable program is loaded. The 
2-digit "length of data" field following the 
indicator specifies how many numeric blanks 
are desired. Thus a 412 will cause twelve 
numeric blanks to be inserted into core stor- 
age when loading. 

* 4 — This digit is used in the same manner as 

the digit 4 above except that the flag indi- 
cates the program is in "absolute" form. 
6 — This digit indicates the end of a relocatable 
program. In sps ii-d, the five digits immedi- 
ately preceding a 6 or 6 (described below) 
will be the number of core positions needed 
for this program. In sps or Fortran, the 
card that follows a card containing a 6 or 6 
will contain five 9's in columns 1-5. 

* 6 — This digit indicates the end of an "absolute" 

program. 

Example 

The first 35 columns contain the following: 

01012ll24900366000004=0101920500428^ 
Columns 36 through 75 are blank and columns 76-80 
contain 00101. 



Explanation 



Columns 


Contents 


Description 


1-5 


01012 


Loading address of first informa- 






tion. 


6 


1 


Code indicating the following in- 






formation is an instruction. 


7-8 


12 


Length of the following informa- 






tion. 


9-20 


490036600000 


The information to be loaded. 






which is a Branch instruction 






with a relocatable P field. 


21 




Code indicafting a change in the 






loading address sequence. 


22-26 


01019 


Loading address of the following 






information. 


27 


2 


Code indicating the following in- 






formation to be loaded is a re- 






locatable constant. 


28-29 


05 


Length of the following informa- 






tion. 


30-34 


00428 


The information to be loaded, 






which is a relocatable constant. 


35 




Code indicating nothing further 




is to be loaded from J:his card. 


76-80 


00101 


Sequence number. 


With a 


relocation factor of 14000, the above data would be 



loaded startiiig alt location 15012. The data would appear as: 
491436600428. 
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Cause — Disk read error while reading Loader rou- 
tine into core storage. 
Action — Depress Start key to retry. 



Monitor II System Communications Areas 

Core storage positions 402 through 439 and disk sector 
19663 are reserved for use by the Supervisor Program, 
sps assembler, Fortran compiler, Disk Utility Pro- 
gram, and other programs as common communica- 
tions areas. The Communications Areas are automat- 
ically established when the Monitor system is load- 
ed. Changes to the communications areas are made 
as specified by control records (see dfine control 
CARD ) or by the Supervisor program itself. Care should 
be taken by the user, so that the communications 
areas are not inadvertently altered. A description of 
each of the fields in the core storage and disk sector 
communications areas follows. 

Core Storage Area 



Core Storage 
Positions 

402-421 



422-425 



426 



427 



428 



Description 

A 20-digit DIM entry or a 14-digit 
disk control field being used by 
the I/O routine. Disk Utility Pro- 
gram, or other programs. 

Starting address of work cylinder. 
Only the four leftmost positions 
of the sector address are given. 
This address will be 1000 (with 
the flag) unless changed by a 
DFINE control card. 

Source of sps or Fortran source 
program input, 
1 =1 typewriter. 
3 = paper tape. 
5 = card. 

If this position is flagged, loading 
resumes after a tcd at core stor- 
age address 00000. If unflagged, 
loading resumes at the core stor- 
age address specified by posi- 
tions 435-439 of this Communi- 
cations Area. 

Source of object program being 
loaded, 
3 = paper tape. 
5 = card. 
7 = disk. 



429 



430-434 



435-439 



A flag in this position indicates that 
a DEND type entry starts execu- 
tion of the object program. No 
flag indicates that a tra-tcd type 
entry starts execution of the ob- 
ject program. 

Source of monitor control input, 
1 = typewriter. 
3 = paper tape. 
5 = card. 
A flag is present in this position if 
library subroutines are to be 
called with sps or Fortran ob- 
jects programs. 

"High" indicator, i.e., the core stor- 
age address of the highest posi- 
tion to be loaded plus one. 

Address where loading is resumed 
follcwing an sps tra statement. 
This address will always be one 
of the foHowing: 00000, 00075, 
00150, or 00225. 



Disk Sector Area (Sector 1 9663) 



Disk Sector 
Positions 

00-19 
20-21 
22 



23 

24-35 

36-39 
40-41* 



Description 

dim entry used by I/O routine and 
Supervisor program. 

Not Used. Available for use by the 
1620 user. 

0 indicates that the program to be 
loaded into disk storage is in 
core image format; 1 indicates 
that the program to be loaded 
into disk storage is in relocatable 
format. 

0 indicates card output; 1 indicates 
paper tape output. 

Six-character alphabetic name of 
user's source program to be load- 
ed into disk storage after as- 
sembly. 

Four-digit dim entry number of 
user's source program to be load- 
ed after assembly. 

Two digits (xx) indicating length 
of mantissa for sps subroutines. 
( Standard mantissa length is 08. ) 
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42-43 * Two-digit sps subroutine set identi- 

fication number. (Standard set 
number is 02.) 

44 * N (noise) digit for sps subrou- 

tines. (Standard N digit is 0.) 

45-46* Two digits (ff) indicating length 

of mantissa for Fortran sub- 
programs. (Standard mantissa 
length is 08.) 

47-48* Two digits (kk) indicate Fortran 

fixed-point word length (04 
standard length). 

49 Digit indicates number of disk 

storage drives available to the 
Monitor System. 

50-72 Supervisor Program indicators. 

73 Source of input, other than disk, 

for FORTRAN Subprograms (from 
DFiNE control record; 5 is stand- 
ard, 3 =r paper tape, 5 = card). 

74-75 Number of control cards for For- 

tran at load time. 

76 Object machine core size (from 

DFINE control record; 1 when 
system is delivered). 



77 

78-79 
80-81 
82 

83* 

84-88 

89-93 

94-98 
99 



N (noise) digit for sps subroutines 
(from Noise Digit control rec- 
ord). 

Mantissa length for sps subrou- 
tines (from Mantissa Length con- 
trol record). 

SPS subroutine set identification 
number (from Subroutine Set 
control record), 

FORTRAN A and I/O subroutine set 
numbers (from fork or xeqs con- 
trol record ) . 

FORTRAN A and I/O standard sub- 
routine set number (from dfine 
control record; 1 when system is 
delivered). 

First core storage address of a re- 
locatable object program. 

Computed relocation address of a 
relocatable object program. 

Card sequence number. 

A record mark (4=)« 



These items are the systems standards. See Define 
Parameters under Disk Utility Program. 
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Disk Utilit/ Program 



In every data processing installation there are certain 
operations that must be performed frequently. These 
operations may difiFer in detail, depending on the 
user's particular machine configuration and data for- 
mat, but essential functions remain the same. Because 
of their frequent use, the burden of programming 
these operations can become a costly, time-consuming 
task. Therefore, there is a need for generalized 
routines which will satisfy specific functions and allow 
the user the flexibility of assigning the specifications 
for his particular problem. 

The generalized routines, provided by ibm Pro- 
gramming Systems, described in this publication, are 
grouped under the heading Disk Utility Program. 
They are designed to assist the user in the day-to-day 
operation of his installation. By means of these rou- 
tines, certain frequently required operations, such as 
loading or unloading disk storage ( data or programs ) 
from cards or paper tape, etc., can be performed with 
minimum programming eJffort by the user. 

The routines described in this publication are: 

1. Write Addresses. This routine writes sector ad- 
dresses on a disk pack as specified by the user. 
Data on the disk pack can be replaced by zeros 
or left unchanged. 

2. Alter Sector. This routine uses the typewriter to 
change data in a sector of disk storage. In most 
cases, only the digits to be changed must be 
typed. 

3. Disk-to-Output. This routine unloads disk stor- 
age containing data or programs into cards, 
paper tape, or on the typewriter. 

4. Load Programs. This routine loads one or more 
programs from cards or paper tape to disk stor- 
age at either a specified address or an address 
selected by the load routine itself, and checks 
for an overlap of previously stored programs. 

5. Replace Programs. This routine implements the 
changes or additions necessary to update a pro- 
gram on disk storage. Input can be in either card 
or paper tape form. 

6. Disk-to-Disk. This routine copies data or pro- 
grams from one area of disk storage to another. 

7. Delete Programs. This routine ejGFectively deletes 
programs from the system by deleting their 
associated dim entries and Equivalence table 



entries without actually removing the programs 

themselves. 

8. Define Parameters. This routine redefines certain 
essential parameters of the Monitor System. 

9. Define Disk Pack Label. This routine writes the 
"label sectors" (first and last sectors, cylinder 99) 
and establishes a Sequential Program table on a 
disk pack. It can be used to initialize new disk 
packs. 

10. Define FORTRAN Library Subroutine Name. 
This routine generates an entry in the Equiva- 
lence table for Fortran subroutines that have 
multiple entries. Thus, a name can be assigned 
to all entries in a subroutine. 

Each routine can be entered and executed by 
means of control records read by the Disk Utility 
Program. In addition, the routines are used by 
both sps ii-D and Fortran ii-d to output as- 
sembled programs into cards or paper tape and 
to load and replace programs in disk storage. 

The Equivalence table, dim table, and Sequential 
Program tables are used and modified by the Disk 
Utility Program in the execution of its routines. These 
tables are updated automatically for each disk stor- 
age change when the user adds, deletes, or replaces 
a program. Entries are created in the tables whenever 
a new program is loaded to disk storage. 

Operation 

The Disk Utility Program, a self-loading program, is 
loaded into disk storage along with the other pro- 
grams that make up the Monitor II System. When a 
Dup Monitor Control card (4==N i^up in card columns 
1-5) is recognized by the Supervisor Program, the 
Disk Utility Program will take control and select the 
appropriate Disk Utility routine as identified by the 
next card in seqence, which should be a Disk Utility 
Program Control card. This card is identified by an 
asterisk in card column 1. Card columns 2-6 contain 
a code word to identify the Disk Utility routine de- 
sired: such as, Alter Sector, Load Programs, etc., and 
the remaining card columns provide additional con- 
trol information to be used by the Disk Utility routine 
itself. The user supplies the control information which 
describes the function he desires. Because the control 
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information for each type of Disk Utility Program 
Control card is difFerent, the format of each is describ- 
ed separately in the separate routine descriptions. 
After the execution of a Disk Utihty routine is com- 
pleted, control is returned to the Monitor Control 
Record Analyzer routine. 

A DUP Monitor Control card, as well as a Disk Utili- 
ty Program Control card, is required each time a Disk 
Utility routine is to be executed. These cards are 
stacked with the other input cards to be processed by 
the Monitor System. This stacked input may be in 
card or paper tape form or it may be entered from 
the typewriter. 

If the code word contained in a Disk Utility Pro- 
gram Control card is not one of the ten legitimate 
codes (dwrad, daltr, ddump, dload, drepl, delet, 
DFiNE, DCOPY, DLABL or dflib) an crror mes- 
sage will be typed and the computer will halt. This 
message will be comprised of the data from the con- 
trol card and a constant, err control. When the 
Start key is depressed, the Disk Utility routine will 
return control to the Monitor Control Record Analyzer 
routine which will pass all cards until the next Moni- 
tor Control card is reached. 

If the control record is entered from the typewriter, 
the message 

ENTER DUP CNTRL REC 

is typed and the computer halts. The user may then 
enter the next Disk UtiHty Control record from the 
typewriter and depress the R-S key to continue pro- 
cessing. Records are entered in the alphameric mode 

The Disk UtiHty Program uses the I/O routine of 
the Supervisor Program to perform its I/O functions 
Therefore, error messages associated with that rou- 
tine will be typed if an I/O error occurs. The I/O 
error messages, as well as operating options for I/O 
errors, are described under, i/o error routine, in the 
Supervisor Program section. 

Whenever a Disk Utility routine is instructed by a 
control record to write read-only flags with sector 
addresses, the message 

DUP * TURN ON WRITE ADDRESS KEY, START 

is typed and the program halts. The operator should 
turn on the Write Address key (to allow read-only 
flags to be written) and depress the Start key to con- 
tinue processing. After the program has been com- 
pletely loaded, the message 

DUP * TURN OFF WRITE ADDRESS KEY, START 
is typed and the program again halts to allow the 



operator to turn off the Write Address key. 

Whenever a program of less than 200 sectors is 
assigned to disk by any Disk Utility routine, 
it will always be placed in consecutive sectors of one 
cylinder. However, a program can be assigned by the 
user, to any available disk storage area as described 
under load programs routine.. Programs as large as 
999 sectors long can be processed by the Disk Utility 
Program. 

After a program is loaded to disk by any Disk 
Utility Program routine, the message 

DK LOADED AAAAAA IIII DDDDDD 
SSS CCCCC EEEEE 

is typed to inform the user about the assigned dim 
entry. 

AAAAAA is the assigned program name, iiii is the as- 
signed DIM entry number and the remainder of the 
message is the dim entry itself. 



Write Addresses Roufine 

The Write Addresses routine is used to write sector 
addresses on a disk pack. Addresses may be written 
with or without read-only flags over the leftmost 
positions. Data positions of each sector may be 
changed to zeros or left unchanged. 

When the Write Addresses routine is executed, 
the Write Address key must be turned on. The mes- 
sage: 

DUP * TURN ON WRITE ADDRESS KEY, START 

is typed to signal the operator to turn the switch on. 
After the routine has been executed, the message: 

DUP * TURN OFF WRITE ADDRESS KEY, START 

is typed to signal the operator to turn the switch off. 
The format of the control card follows. 



Control Card (DWRAD). 



Columns 



1 

2-6 
7-12 



17 



18 



Asterisk (*) 
Code word, dwrad. 
Disk sector address where 
writing is to start (seek ad- 
dress). 

Letter P if read-only flags 
are to be written over ad- 
dresses; otherwise leave 
blank. 

Letter Z if data positions 
are to be changed to zeros; 
letter S if data positions are 
to remain unchanged. 
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21-26 Address to be written at sec- 
tor where writing is to start. 

27-32 Final address to be written. 

When the dwrad Control card is read, control is 
transferred to the Write Addresses routine and the 
message 

WRITE AND SAVE 

SEEK START STOP 

xxxxxx x5bDcxx xxxxxx 

or the message 

WRITE AND ZERO 
SEEK START STOP 

x5cxxxx xxxxxx xxxxxx 

is typed to allow verification of control record data 
and the computer is halted. (Note that the second 
form of the message indicates that sector data posi- 
tions are to be changed to zeros. ) Six X's indicate the 
respective seek, start, and stop addresses. Depressing 
the Start key causes execution of the routine. The 
routine seeks the disk sector address specified in 
columns 7-12. The address specified in columns 21-26 
is written in that sector; the address is then increment- 
ed by one and written in the next sector. Writing 
continues in this manner until the incremented ad- 
dress is equal to the final address (columns 27-32) 
and the final address has been written. 

If the program is unable to find the starting address 
(columns 7-12), or any address that should be on the 
specified track in disk storage, an error message ER 
SK XXXXXX will be typed, XXXXXX is the disk 
address on the last sector examined when no equal 
comparison could be made with the sector addresses 
that should be on the track that has been read. In 
addition, the 20 sector addresses from the selected 
track will be typed and the program will halt. When 
the Start key is depressed, control is returned to the 
Monitor Control Record Analyzer routine to read the 
next Monitor Control record. 



Alter Sector Routine 

This routine allows the user to alter the data in any 
selected sector of disk storage. The sector data to be 
changed is typed out. All, or selected portions of the 
sector may then be updated. After the changes have 
been made, the old and the new data are typed out 
for visual comparison and verification. If the changes 
are satisfactory, the new data is stored on the disk 
pack. As many sectors as desired may be altered each 



time this routine is used. Control is transferred to 
the Alter Sector routine when the control card is read. 

Control Card (DALTR). 

Columns 1 Asterisk (*) 

2-6 Code word, daltr. 

After the control card is read, the message 

SECTOR 

is typed and the program halts. 

The operator types in the 6-digit address of the 
sector to be altered and depresses the Release and 
Start key. If more or less than six digits are typed, 
the message 

SECTOR ADDRESS ILLEGAL, 
START TO RE-ENTER *DALTR 

is typed and the machine halts. Pushing the Start key 
will restart all operations on the given sector. The 
routine reads the sector and types it out in the fol- 
lowing format. 

1st Half xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 
2nd Half xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 

Note that the two halves of the sector are identified by 
the phrases, "1st Half and "2nd Half," respectively. 
(Typewriter margins must be at least 70 spaces apart 
to permit this format. ) 

Each group of ten characters is assigned a section 
number by the routine. The first five groups are as- 
signed numbers 01-05; the last five groups are assigned 
numbers 06-10. After the sector data is typed out, the 
routine requests the number of the section in which 
the first change will be made. 

The message typed out is shown below: 

SECTION 

The user now types in one 2-digit section num- 
ber between 01 and 10. After depressing the Release 
and Start key, the message 

SECTION NUMBER ILLEGAL, 
START TO RE-ENTER *DALTR 

is typed if the section number is greater than 10. If 
the section number is correct (between 01 and 10), 
the selected section is typed out for verification as 
shown below. 

XXXXXXXXXX TYPE CHANGE 

The changes can now be entered directly under 
the typed section. If a particular character does not 
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require changing, an "x" may be typed under that 
character, or the character itself may be retyped. 
Although only one section is typed out for any one 
selection, succeeding sections may be altered by con- 
tinuing to type changes. Spacing is optional except 
that the number of characters (including spaces) can- 
not exceed 100. Spaces (alpha blanks) will not be- 
come part of the sector data. For example, assume that 
section 3 is selected and is typed out as shown below: 

3574246798 

The operator desires to make some changes in section 
3 and section 4. For this example, the typewritten 
page may look like this: 

3574246798 TYPE CHANGE 
XXX7625X82 75234XX479 

Typing may be terminated as soon as the last digit 
to be changed is typed; that is, if the fifth digit in 
section 4 (previous example) is the last change, the 
last five digits of section 4 do not have to be typed in. 

If the user does not type changes but simply de- 
presses the Release and Start key, the message 

CORRECTIONS HAVE NOT BEEN ENTERED 

is typed and the computer will halt on a read alpha- 
meric instruction to allow the user to enter the 
changes. 

If more digits are entered than the sector can con- 
tain, the message 

TYPE-IN EXCEEDS SECTOR LENGTH, START 

is typed. Depressing the Start key allows the operator 
to begin again and enter a new sector address. Spaces 
are optional and do not become part of the sector 
data; however, they are counted toward the maximum 
allowable number of characters which is 100. 

After all changes have been made, the operator 
depresses the Release and Start key. The routine then 
types out the original sector data along with the 
changes that were typed in. The output appears as 
shown below: 



1st Half 1234567890 1234567890 3574246798 8654213212 0987654321 ORIGINAL 

Isf Half 1234567890 1234567890 3577625782 7523413479 0987654321 CORRECTED 

2nd Half 7265417623 0176421432 8543217290 5482797654 8243176521 ORIGINAL 

2nd Half 7265417623 0176421432 8543417290 5482797654 82431 76521 CORRECTED 



At this point the routine will again type the word 
SECTION 

If other changes must be made, the operator enters 
a new (or possibly the same) section number and de- 
presses the Release and Start key. The section change 
routine is now repeated. When all the changes prove 
satisfactory, the operator enters a record mark instead 
of a section number and depresses the Release and 
Start key. The routine then writes the updated sector 
back on the disk pack and types the message 

DISK SECTOR DDDDDD CORRECTED 

DDDDDD is the sector address that was selected to be 
changed. The routine then branches to the part of 
the routine that types the message "sector" to allow 
the user to choose another sector address and change 
another sector. 

When all desired sectors have been altered, this 
routine is concluded by typing a record mark instead 
of a sector address after the word sector has been 
typed out. This will cause control to be returned to 
the 1620 Supervisor Program, which will read another 
1620 Monitor II control statement. 



Operating Notes 

When the routine is ready to accept the new data 
(after the section number is typed in), it positions 
the console typewriter in the "alphameric shift" mode. 
Therefore, typing numerical data requires the opera- 
tor to manually shift into numerical mode. 

Flagged digits 1-9 may be inserted by typing the 
corresponding alphabetic letters J-R. Flagged zeros, 
numeric blanks, flagged record marks, and flagged 
group marks may be entered by using minus ( — ) key, 

1@ key, W key, and G key, respectively. Alpha blanks 
(spaces) do not become a part of the sector data. 



Disk-to-Oufput Routine 

The Disk-to-Output routine transfers data from se- 
lected portions of disk storage to cards, paper tape, 
or the typewriter. This routine enables the user to 
preserve original records before they are updated or 
changed, thus providing an audit ti-ail. The card or 
paper tape output will be in numerical form and will 
contain record marks and group marks. Numerical 
blanks result in blank card columns. 
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This routine can be used to obtain any of the fol- 
lowing items of output as directed by the user. 

1. Program or data identified by name. 

2. Program or data identified by dim number. 

3. Data between sector limits. 

4. DIM table. 

5. Equivalence table. 

6. Availability list (extracted from Sequential Pro- 
gram table). 

7. Sequential Program table. 

The routine is executed whenever a ddump control 
card is read by the Disk Utility Program or wherever 
a FORTRAN compilation or sps assembly requires 
punching into cards or paper tape. 

The Disk-to-Output routine can be used to trans- 
mit any number of disk sectors to cards, paper tape, 
or typewriter. Transmission will start with the first 
sector specified in a dim entry or with a beginning 
sector specified by the user. Transmission will end 
when the sector count in the dim entry reaches zero 
or when a specified ending sector is found. The out- 
put following compilation or assembly is terminated 
by a "9's" trailer record. The trailer record format is 
five 9's followed by a record mark, 69 zeros and a 
sequence number. This record always follows all sps 
and FORTRAN object programs. During execution of 
the Disk-to-Output routine, resulting from dup control 
records, error messages 01, 04, 06 or 20 may be typed 

(see ERROR DETECTION AND CORRECTION). 

The control card used to transfer control to the 
Disk-to-Output routine is punched in the following 
format. 



18 Identify output 

I = D i s k Identification 
Map (dim). 

E — Equivalence table 

A = Avalability entries 
from the sequential pro- 
gram table from the 
disk module specified 
by column 19 (typed 
output only). 

S=:Entire sequential 
program table from the 
disk module specified 
by column 19. 

M = Program identified 
by columns 7-12 or 13- 
16 of this card. 

L = The sectors between 
limits as specified by 
columns 21-26 and 27- 
32 of this card. 

19 Module number (0, 1, 2, or 
3) to be used if output 
options S or A are exercised 
(see column 18 above). 

21-26 Beginning disk storage ad- 
dress of output (lower lim- 
it). 

27-32 Ending disk storage address 
of output (upper limit). 



Control Card (DDUMP) 

Columns 1 
2-6 
7-12 



Asterisk (*). 
Code word, ddump. 

Alphabetic name of pro- 
gram or data to be punched 
or typed (same name that 
appears in Equivalence 
table). 

13-16 dim entry number of pro- 
grams to be punched or 
typed. (If the letter M is 
present in column 18, either 
a name or dim entry num- 
ber must be present, but 
both need not be present.) 
17 Output device, 

C = card 

P = paper tape 

T = typewriter 



Output Format 

CARD 

Each 300 positions of disk storage (three sectors) 
will be punched into four successive cards; 75 columns 
of disk data followed by a five-column sequence num- 
ber in each card. When 2 sectors are to be outputted, 
3 cards are punched. When 1 sector is outputted, 2 
cards are punched. Therefore, all disk data is punched 
from 1 or 2 sector outputs. 

A special trailer card containing 9's in columns 1-5, 
a record mark in column 6, zeros in columns 7-75, and 
a sequence number in columns 76-80 will be punched 
following the last output card. This record is used to 
terminate loading when the output is reloaded by the 
Load Programs routine or Replace Programs routine. 
If the output deck is reloaded by the Load Programs 
routine or Replace Programs routine, the trailer card 
must remain behind the deck for control purposes. 
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The 9's trailer record will load into the work cylinders 
along with the balance of the data; however, the 
trailer record will not require extra disk storage posi- 
tions if the data is moved to another disk location. 
If the output is a program to be reloaded by the 
loader routine, the entire program must be outputted. 
The System Output Loader routine requires an entire 
program, with all of its indicator codes, in order to 
operate. 

When either the dim table or Equivalence table is 
punched out, they will be in a loadable format; i.e., 
alphameric characters will be in 2-position alpha- 
meric coding form. 

PAPER TAPE 

This output will be in standard loadable format, i.e., 
it may be reloaded to disk storage by the Replace 
Programs routine. The output will be identical to the 
card format described above, except that the sequence 
number will not be punched with paper tape records. 
The last output sector will be followed by a trailer 
record for control in the event that the output is re- 
loaded into disk storage. 

TYPEWRITER 

With the exception of the Availability list and Equiva- 
lence table, all typewriter output will be in a standard 
format. Each lOO-character sector will be typed on 
two lines as shown below. 



iJ 

lOOj 

U 

lOOj 

Availability Lists. Availability lists are typed as 
follows: 

AAAAA 

BBBBB CCCCC 
BBBBB CCCCC 
BBBBB CCCCC 

AAAAA is the disk pack identification number. 
BBBBB is the starting disk address of an unused area 
of storage. 

CCCCC is the ending disk address for the unused area. 
These entries, one per line, are extracted from the 



Sequential Program table by the Disk-to-Output 
routine. 

Equivalence Table. Equivalence tables are typed 
in the following format with five entries per line. 



NNNNNNIIII NNNNNN nil NNNNNN llll NNNNNN llll NNNNNN Mil 
NNNNNnIiII NNNNNN llll NNNNNNMII NNNNNN Till NNNNNnTiII 



NNNNNN is the alphameric name. 

iiii is the DIM entry number. Available Fortran library 
entries will appear as RRRRRR 9999 in place 
of NNNNNN IIII. 



Load Programs Routine 

The Load Programs routine is used initially to load 
sps ii-D or FORTRAN H-D objcct programs from the 
working cylinders or programs previously dumped 
by the Disk-to-Output routine, from cards or paper 
tape into disk storage. Overlap of occupied areas of 
disk storage is prevented by the routine. Programs 
cannot be loaded in the work cylinders with this 
routine. Programs will be loaded into areas of disk 
storage selected by the routine itself, if the user 
does not specify a storage area preference. If the 
routine selects the storage area, it will always store 
the program on a single cylinder, without overlapping 
cylinders, unless it is longer than an entire cylinder. 
If the user selects the storage area, it will be stored 
in the selected area regardless of cylinder overlap 
conditions. 

This routine provides the following program load- 
ing options. 

1. A name may be assigned to the program and 

placed in the Equivalence table. 

2. A DIM entry may be assigned to the program. 

3. The disk storage location can be specified and 
permanently assigned (fixed). 

4. An entry address (execution address) can be 
assigned in the dim entry to the program. 

5. Read-only flags can be written in the sector ad- 
dresses. 

6. The disk storage location for the program can be 

specified by cylinder(s) without causing perma- 
nent assignment. Thus, several associated pro- 
grams can be assigned to the same cylinder or 
group of cylinders by the user without actually 
specifying sector addresses. 
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7. Programs in either core-image or system output 
formats can be loaded; and programs in system 
output format can be converted to core image 
while loading. 

It is possible, by exercising option 3, to permanently 
assign the sectors where the program is to be loaded 
in disk storage. This capability is provided in this 
routine only. When using this option, any programs 
already in the specified load area, but not permanently 
assigned, will be moved. The overlapped program 
is moved to the area which immediately follows the 
new program. If this in turn would result in additional 
overlapping of other programs, the process of moving 
programs continues until available space is found. 
If any program, in this move, is a permanently 
assigned program, or contains read-only flags in its 
sector addresses, no programs are moved and the 
new program will not be loaded. 

A program is considered immovable if it is either 
permanently assigned by the Load Programs routine 
or if it contains read-only flags in any of its sector 
addresses. Permanently assigned programs can be 

1. Deleted by the Delete Programs routine. 

2. Copied by the Disk-to-Disk routine. 

3. Changed by the Alter Sector routine. 

4. Dumped into card or paper tape or printed on 
the typewriter. 

5. Read for any purpose with normal read com- 
mands. 

However, a permanently assigned program will not 
be moved in disk storage by the Disk Utility Program. 

Programs being loaded can be "file protected" by 
writing read-only flags over the disk addresses of the 
storage sectors. All loading options are indicated by 
the control card. 



Control Card (DLOAD). 

Columns 1 Asterisk ( * ) 
2-6 
7-12 



Code word, (dload). 
Alphabetic name (left-justi- 
fied ) of program to be load- 
ed into disk storage. 
17-20 A DIM entry number to be 
given the program to be 
loaded. (This number will 
not be used by the routine 
if it is already assigned to 
another program.) 
21-26 Beginning disk sector ad- 
dress in the work cylinders 
that contains the program to 
be permanently loaded. The 
first digit of the sector ad- 
dress selected must be 1, 3, 
5, or 7. 



27-32 Ending disk address in the 
work cylinders that contains 
the program to be perma- 
nently loaded. The first digit 
of the sector address select- 
ed must be 1, 3, 5, or 7. 

33-38 Assigned disk storage ad- 
dress of the program to be 
loaded. (If this address is 
included, the program will 
be permanently assigned to 
the given address.) The first 
digit of the sector address 
selected must be 1, 3, 5, or 7. 

39-43 Core storage address for a 
program that is placed in 
disk storage in core-image 
format. This address will be 
placed in the CCCCC por- 
tion of the associated dim 
entry. 

44-48 Entry address (address of 
the first instruction to be ex- 
ecuted) for a program that 
is being loaded. This address 
is placed in the EEEEE por- 
tion of the associated dim 
entry. This address is used 
for reading programs from 
disk in core-image format 
with the I/O routine. 

49 Input device, 

C ■= card 
P = paper tape. 
D = disk storage work 
cylinders. 

50 Letter I, if program to be 

loaded is in Core 
Image format. 
S, if program to be 
loaded is in Sys- 
tem Output for- 
mat. 

M, if program to be 
loaded is in Sys- 
tem Output for- 
mat, and it is to be 
converted to Core 
Image format be- 
fore loading t o 
disk storage. 

51 Letter P, if read-only flags 
are to be written over disk 
addresses of storage sectors; 
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otherwise leave blank. 
52-54 Beginning cylinder (three 
digits XYY, where X is the 
module, 0, 1, 2, or 3, and YY 
is the cylinder number 00- 
99) to define lower limit 
where program can be load- 
ed. 

55-57 Ending cylinder (three dig- 
its XYY, where X is the 
module 0, 1, 2, or 3, and YY 
is the cylinder number 00- 
99) to define upper limit 
where program can be load- 
ed. (Note that both the 
upper and lower limits will 
be ignored by the routine 
if columns 33-38 of this card 
are punched. ) 

60 Any non-blank character, if 
program to be loaded is a 
FORTRAN or sps objcct pro- 
gram which requires sub- 
routines. 



Replace Programs Routine 

The Replace Programs routine is used to replace pro- 
grams in disk storage with updated, changed, or new 
programs. Programs can be loaded to a disk storage 
area from cards, paper tape, or from another assigned 
disk storage area. In addition to loading disk stored 
programs, identified by dim entries, programs can be 
loaded from work cylinders. 

A program can be given another name in the Equiv- 
alence table by reloading the program over its original 
assigned disk area using a different name. The pro- 
gram can then be called by either name since both 
names are maintained in the Equivalence table. 

With this routine, it is possible to load a program 
to itself adding read-only flags to the disk addresses. 
A permanently assigned program in disk storage can- 
not be replaced by this routine. To replace a perma- 
nent program, ( 1 ) delete the program with the Delete 
Programs routine and, (2) load the replacement pro- 
gram with the Load Programs routine. 

The format of the control card for this routine fol- 
lows. All fields are optional with the exception of 
columns 1-6, 17-20, and 49. 

Control Card (DREPL). 

Columns 1 Asterisk (*). 

2- 6 Code word, drepl. 

7-12 Alphabetic name of pro- 



gram. 

13-16 The DIM entry number 
which identifies the program 
to be loaded if the program 
is from another assigned 
disk storage area. ( The pro- 
gram to be loaded will be 
deleted from its original disk 
storage location.) 

17-20 The dim entry number 
which identifies the program 
to be replaced. 

21-26 Beginning disk sector ad- 
dress if the program to be 
loaded is in the work cylin- 
ders. The first digit of the 
sector address selected must 
be 1, 3, 5, or 7. 

27-32 Ending disk sector address 
if the program to be loaded 
is in the work cylinders. The 
first digit of the sector ad- 
dress selected must be 1, 3, 
5, or 7. 

39-43 Core storage address for a 
program that is to be placed 
in disk storage in core-image 
format. This address will be 
placed in the CCCCC por- 
tion of the associated dim 
entry. 

44-48 Entry address (address of 
the first instruction to be 
executed) for a program 
that is being loaded. This 
address is placed in the 
EEEEE portion of the asso- 
ciated DIM entry. 

49 Input device, 

C = card. 

P = paper tape. 

D = disk storage. 

50 Letter I, if program to be 

loaded is in Core 
Image format. 

S, if the program to 
be loaded is in 
System Output 
format. 

M, if program to be 
loaded is in Sys- 
tem Output for- 
mat, and it is to 
be converted to 
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core image format 
before loading to 
disk storage. 
51 Letter P, if read-only flags 
are to be written 
on disk addresses 
of storage sectors; 
otherwise leave 
blank. 

60 Any non-blank character, if 
program to be loaded is a 
FORTRAN or sps objcct pro- 
gram which requires sub- 
routines. 



Disk-fo Disk Routine 

This routine can be used to copy data or programs in 
disk storage to any available (unoccupied) disk stor- 
age area including the work cylinders. A program to 
be copied should be specified by a dim entry, an al- 
phabetic name that is in the Equivalence table, or a 
sector address given by the user. The program cannot 
be copied into an area which is already identified by a 
DIM entry number, except the work area (dim entry 
0001). Read-only flags may be written with the disk 
sector addresses of the copy, except in work cylinders, 
at the option of the user. When this routine is used, 
the dim table and the original program remain un- 
changed. It is not possible to copy a program over a 
portion of that same program. It is not possible to 
copy a program into the work cylinders if that pro- 
gram exceeds the work cylinder limits. Data can be 
copied from one portion of the work area to another; 
however, no check will be made for overlapping of 
data within the work area. If a program or data 
to bfe copied is less than 100 sectors, there is: no dan- 
ger of overlap. 

If any read-only flags are encountered in sector 
addresses within the copy area, an I/O routine error 
message is indicated. The program will be copied up 
to the point of the error. 

The options offered by this routine are identified 
in the control card that follows. 

Control Card (t>COPY). 

Columns 1 Asterisk (*) 

2-6 Code word, dcopy. 

7-12 Alphabetic name of program to 
be copied. 



13-16 The DIM entry number which 
identifies the program to be 
copied. 

21-26 Beginning sector address of pro- 
gram or data to be copied. 

27-32 Ending sector address of pro- 
gram or data to be copied. 
(Note that the beginning and 
ending sectors will always be 
used if present. ) 

33-38 Beginning disk sector address 
of the new copy. This address 
must be that of work cylinders 
or available disk storage. This 
field must always be punched. 

51 Letter P, if read-only flags are 
to be written on disk sector ad- 
dresses at the new location of 
the program; otherwise leave 
blank. 

The sectors that are to contain the copy must not 
have read-only flags in the sector address initially or 
an error will be indicated and copying will be termi- 
nated. 

After the data is successfully copied, the message 

NNNNN SECTORS OF DATA 

COPIED FROM XXXXXX TO YYYYYY 

is typed, where nnnnn specifies the number of 
copied sectors and xxxxxx and yyyyyy are the be- 
ginning sector addresses of the From and To areas, 
respectively. If the copied data is written with read- 
only flags, an additional message is typed. 

AND FILE PROTECTED 

To move a program or data from one disk area to 
another, it should be: (1) copied to the working cyl- 
inders from the original area, (2) deleted from the 
original area, and (3) loaded to the new area from 
the working cylinders. This can be accomplished by 
using the Disk-to-Disk, Delete Programs, and Load 
Programs routines, in that order. Therefore, a *dcopy 
control record is used to copy the program into work- 
ing cylinders; a *deijet control record is used to 
make the original storage area available by deleting 
its DIM entry and Equivalence table entry; and a 
*dload control record is used to load the program 
to a specified sector address and to generate ihe 
new DIM entry and Equivalence table entry. 
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Delete Programs Routine 

This routine can be used to delete a program and its 

associated dim entry. Sequential Program table entry, 
and Equivalence table entry (if any) or entries 
(where the program has more than one name) from 
disk storage, when a program is deleted, read only 
flags will be removed and programs in successively 
higher disk storage positions will not be moved up 
to fill the vacated storage area. 

The format of the control card follows. 

Control Card (DELET). 

Columns 1 Asterisk(*) 

2-6 Code word, delet. 
7-12 Alphabetic name of program to 
be deleted ( same name that ap- 
pears in Equivalence table). 
13-16 DIM entry number of program 
to be deleted. (Note that either 
a Name or dim entry number 
must be present, but not both. ) 

Define Parameters Routine 

This routine can be used to alter the assignment of 
work cylinders, dim table. Equivalence table. Sequen- 
tial Program table, or certain system specifications in 
the System Communications Area for the Monitor 
System. The tables can be enlarged or shortened or 
relocated to suit the user's system. Also, this routine 
can be used to indicate that more than one disk stor- 
age drive is to be used with the 1620. 

When the size of the dim table is changed, the 
Equivalence table will be moved to immediately fol- 
low the dim table. When redefinition of an area 
(working cylinders, dim table, or Sequential Pro- 
gram table ) is attempted, the area must be available; 
i.e., it must not be occupied by programs with as- 
signed DIM entries. If an area is unavailable, it will 
not be redefined and the the message 

DUP * ERROR 08 

will be typed. 

The normal assignment of disk storage for the above 
mentioned tables is as follows. 



Description 
Work Cylinder 
DIM table 
Equivalence table 
Sequential Program table 



Cylinder 
Assignment 

oais 

24 

25 (first eighty sectors) 

99 (second through 
eighty-first sector) 



To make any alteration to these assignments, or to 
the system specifications, the user must enter a con- 
trol card containing the new parameters. Only the 
parameters to be changed need to be punched in the 
control card. The parameters from a control card are 
processed from left to right by the routine. If any 
parameter is invalid, those parameters to its right will 
not be processed. 

Control Card (DFINE). 

Columns 1 Asterisk (*). 

2-6 Code word, dfine. 
7-12 Beginning disk sector address of 
work cylinders (must be first 
address of a cylinder). 
14-16 Number of cylinders to be re- 
served for work cylinders (11 
minimum, 99 maximum). 
18 Number of disk storage drives 

on system (1-4). 
20-22 Number of sectors to be reserv- 
ed for DIM table (35 mini- 
mum, 999 maximum). 
24-26 Number of sectors to be reserv- 
ed for Equivalence table (9 
minimum, 999 maximum). 
28-30 Number of sectors reserved for 
Sequential Program table (80 
sectors maximum). 
(Note that the same number of 
sectors is reserved for each disk 
storage drive on the system as 
defined in column 18.) 
37-38 Standard length of mantissa for 
SPS floating-point subroutines 
(disk sector positions 40-41 of 
the Communications Area; 08 
when the system is delivered). 
This value may be any number 
between 02-45. 
40-41 Standard sps subroutine set 
identification number ( disk sec- 
tor positions 42-43 of the Com- 
munications Area; 02 when the 
system is delivered). 
01 — Fixed length mantissa (08) 
floating-point subroutines 
for machines equipped 
with Automatic Divide 
feature. 

02— Variable-length mantissa 
floating-point subroutines 
for machines equipped 
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with the Automatic Divide 
feature. 

03— Variable-length mantissa 
floating-point subroutines 
for machines equipped 
with the Automatic Float- 
ing-point feature. 

43 Standard N (noise) digit (any 
number 0—9) for sps subrou- 
tines ( disk sector position 44 of 
Communications Area; 0 when 
the system is delivered ) . 

45-46 Standard lengtii of mantissa 
(any number 02-28) for For- 
tran programs (disk sector 
positions 45-46 of Communica- 
tions Area; 08 when the system 
is delivered). 

48-49 Standard fixed-point word 
length (any number 04-10) for 
FORTRAN programming system 
(disk sector positions 47-48 of 
Communication Area, 04 when 
die system is dehvered). 

51 Source of Input, other than disk 
input, for Fortran subpro- 
grams ( disk sector position 73 
of Communications Area; 5 
when the system is delivered). 

3=paper tape 
5z=card 

53 Core storage capacity of object 
machine (disk sector position 
76 of Communications Area; 1 
when the system is delivered). 

1=20,000 
3=40,000 
5=60,000 

57 FORTRAN Arithmetic and I/O 
subroutine set identification 
number (disk sector position 
83 of Communications Area; 1 
when the system is delivered). 

1 or 3 = disk storage version 
for machines equipped 
with the Automatic Float- 
ing-Point feature. 

2 or 4 = core storage version 
for machines equipped 
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with the Automatic Float- 
ing-Point feature. 

The number of disk storage drives on the system 
may be 1, 2, 3 or 4. The Supervisor Program and the 
Disk Utility Program will need to know this number 
in order to utilize all available disk storage. The sys- 
tem will utilize only the first disk storage drive unless 
additional drive availability is specified by a dfine 
control card. Therefore, it may be necessary for the 
user to process a dfine control card immediately after 
initially loading the Monitor System. When loading 
programs and assigning addresses, the Monitor System 
will start with the first available sector on the first 
available disk drive and proceed sequentially higjier 
to available drives. Also, the user may want to change 
some of the other parameters of the system before 
any actual processing is initiated. If any errors are 
found in any data on a dfine control card, all data to 
the left of the data in error will have been processed 
and data to the right will be ignored. See error detec- 
tion AND correction for a description of possible 
dfine errors. 

When the routine is used to enlarge or shorten the 
tables or to change the number of disk storage drives 
for the system, the *dfine record should be followed 
by a 4= 4=PAus record. After the routine is executed, 
4= 4=PAUS record will halt the computer to allow the 
operator to reinitialize the System; i.e., to reload the 
Monitor System into core storage. The procedure for 
calling the System into core storage from disk storage 
is deserted under operation in the Monitor II System 
Section. 



Define Disk Pack Label Routine 

This routine can be used to initialize a new disk pack 
for the Monitor System by writing the disk pack iden- 
tification number in the label sectors (first and last 
sectors of cylinder 99) and the Sequential Program 
table in cylinder 99. All disk packs used by the Moni- 
tor System must be labeled and must contain a Se- 
quential Program table. The disk pack identification 
number is written in the first five positions of the first 
sector in cylinder 99 and a read-only flag is written 
over the corresponding sector address. The same 
number is also written in the 31st through 35th posi- 
tions of positions 1-100 of the last sector of the disk 
pack. This sector address is changed to 00199 regard- 
less of the addressing scheme used for the remainder 
of the disk pack. 

Note that it is necessary to initialize the disk pack 
which contains the Monitor system because the sys- 
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tem pack is not automatically initialized when the 
system is loaded. Label sectors on a pack which con- 
tains the Monitor System may be changed by this 
routine; however, the Sequential Program table will 
not be re-initialized. The Monitor System disk pack is 
identified by 04800 in the sector address portion 
of DIM entry 3. 

The format of the control card follows. 

Control Card (DLABL) 

Columns 1 Asterisk (*). 

2-6 Code word, dlabl. 

7-11 Disk pack indentification num- 

der to be assigned. 
12 Disk drive number (0, 1, 2, or 
3) of the disk drive that con- 
tains the disk pack to be label- 
ed. 

Both a disk pack identification number and disk 
drive number must be given. If either one is missing, 
the message 

DUP * ERROR 01 

is typed and the computer halts without writing label 
sectors. To correct the error, the operator may enter 
a corrected control card in the stacked input. Depress- 
ing the Start key will return control to the Monitor 
Control Record Analyzer routine to read the next 
Monitor Control record in the stacked input. 

Only numerical characters may be entered for the 
disk pack identification number. If this number is all 
zeros or any position contains a letter or special char- 
acter, the message 

DUP * ERROR 10 

is typed and the computer halts without writing a 
label sector. The restart procedure is the same as 
that given above for error 01. 



Define FORTRAN Library Subroutine Name 

This routine permits the user to assign additional 
names (synonyms) for the Fortran library subrou- 
tines or to assign names to user-written library subrou- 
tines. Any user-written library subroutine with more 
than one entry will require this routine in order to 
place the name of the additional entries in the Equiv- 
alence table. These names are added to the Equiva- 
lence table within the first 50 entries of tiie system 
disk pack. 

The control card format follows. 



Control Card (DFLIB). 

Columns 1 Asterisk (*). 

2-6 Code word, dflib. 

7-12 Name of library subroutine, 

left-justified, 
14-15 DIM number. This number was 
originally specified by the user 
when the subroutine was added 
to the system disk pack. The 
abbreviated 2-digit dim num- 
bers for the sixteen standard 
library subroutines may be 
found in the Fortran ii-d Li- 
brary Subroutines table in the 
FORTRAN section. 

when a name is entered in the Equivalence table, 
the message 

FORTRAN LIB NAME ENTERED NNNNNMIII 

is typed, where nnnnnn is the name specified in col- 
umns 7-12 and iiii is the dim number specified in 
columns 14-15 (preceded by two zeros). 

Both a Name and dim entry number must be given. 
If either is omitted, error message 01 will be typed. 

Error message 10 will be typed for any of the fol- 
lowing conditions. 

1. The Name is all numbers, its first character is not 
alphabetical, or it contains special characters, in- 
cluding nonterminating blanks. 

2. Columns 7-15 contain a record mark or group 
mark in any position or column 13 is not blank. 

3. The DIM number is outside the range 10-39 or it 
contains letters or special characters. 

Error message 54 will be typed if no space is 
available for the Name within the first 50 entries of the 
Equivalence table. Also, the Name itself will be typed. 

Error message 51 will be typed if the name is a 
duplicate of another name in the Equivalence table. 
If operator action is required for any of the above 
messages, refer to error detection and correction. 

Error Defection and Correction 

In addition to the messages described with the indi- 
vidual Disk Utility routines, other numbered error 
messages may be typed. These messages, described 
here, may be common to more than one Disk Utility 
Program as well as Fortran or sps output operations 
that follow compilation or assembly. Table 1 indicates, 
by message number, the error messages that may be 
generated by each routine. A list of the error mes- 
sages and their cause, and a Hst of operator actions 
for the associated messages follow. 
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Error Messages 
DUP * ERROR 01 

DUP * ERROR 02 



DUP * ERROR 03 



DUP * ERROR 04 



DUP * ERROR 05 



DUP • ERROR 06 



DUP * ERROR 07 



Cause 

Field missing from control 
card 

"to" dim entry number 
specified in dbepl control 
card is not in use in DIM 
table. 

"to" dim entry number, 
specified in a drepl con- 
trol card refers to perma- 
nently assigned program. 

"from" dim entry number 
specified in a ddump, 

DBEPL, or DCOPY COntTOl 

card is not in use in tlie dim 
table 

Work cylinders illegally 
specified for program stor- 
age by DLOAD or dbepl 
control card entry. 
DIM entry number specified 

in a DDUMP, DLOAD, DREPL, 

DCOPY, or DELET control card 
is out of range of dim table 
entry capacity. 
"from" DIM entry number 
in a DREPL control card re- 



DUP * ERROR 08 

DUP * ERROR 09 
DUP * ERROR 10 

DUP • ERROR 11 

DUP * ERROR 12 

DUP * ERROR 13 
DUP * ERROR 14 

DUP • ERROR 15 



fers to an' immovable pro- 
gram. 

Insufficient available storage 
space at location specified 

by a DLOAD, DREPL, DCOPY, 

DFiNE control card. 
DIM table is fuU. 
Field in dflib, dcopy or 
DLABL control card con- 
tains invalid data. 
Number of modules speci- 
fied in DFINE control card 
is greater than 4, or less 
than 1. 

Beginning disk sector ad- 
dress of work cylinder, in 
DFINE control card, is not 
first address in cylinder. 
Insu£Bcient available stor- 
age for specified work cyl- 
inder ( DFINE control card). 
Number of sectors specified 
by DFINE control card for 
Sequential Program table 
exceeds 80 sectors. 
Sector address is non-numeri- 
cal in a DWRAD, DDUMP, DLOAD, 
DREPL, DCOPY, Or DELET con- 
trol record. 



Table 1. Numbered Error Messages Generated by Disk Utility Routines 



ROUTINE 



ERROR MESSAGE NUMBER 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


I ) 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


24 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 
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X 
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X 
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X 



Write Addresses (DWRAD) 
Alter Sectcjr (DALTR) 
Disk-to-Output (DDUMP) 
Load Programs (DLOAD) 
Replace Programs (DREPL) 
Disk-to-Disk (DCOPY) 
Delete Programs (DELET) 

Define Parameters (DFINE) 

Define Disk Pack Label (DLABL) 

Define FORTRAN Library Subroutine 
Name (DFLIB) 

FORTRAN or SPS Output 



Disk Utility Program 3d 



DUP * ERROR 17 



DUP * ERROR 18 



DUP * ERROR 19 



Form C26-5774-0 
Page Revised 4/16/65 
By TNL N26-0111 

DUP * ERROR 16 Storage location specified by 

a DCOPY control card 
would cause program stor- 
age to overlap work cylin- 
ders if allowed. 
Starting sector address is 
greater than ending address 

for DWRAD, DLOAD, DREPL^ Or 

DCOPY control card. 
Sequential Program table is 
defined as less than required 
by the present contents of 
that table ( dfine control 
card). 

Core storage address of a 
program to be placed in 
disk storage in core image 
format is less than 02302. A 
blank address will be treat- 
fed as 02402. If the program 
is a Library function (dim 
entries between 10 and 
130), the message will not 
be indicated. 

Name specified by ddump, 
DCOPY, or DELET coutrol Card 
is not used in Equivalence 
table. 

DIM number specified by 
DELET control card is not in 
use. 

Cylinder limits specified in 
*DLOAD control card are 
greater than allowed by Sys- 
tem parameters. 
Name specified is a dload, 
DBEPL, or dflib coutrol card 
or a FORTRAN or sps control 
card has been rejected be- 
cause a duphcation name 
exists in the Equivalence 
table. 

"to" dim entry number spe- 
cified in dload control card 
is in use in dim table (The 
routine will load the pro- 
gram and assign the dim 
entry.) 

Name specified in a dload 
or DREPL control card or a 
FORTRAN or SPS coutrol card 
has been rejected because 
the Equivalence table (with 
the exception of the first 50 
entries) is full. AAAAAA is 



DUP * ERROR 20 



DUP * ERROR 21 



DUP * ERROR 24 



DUP * ERROR 51 



DUP * ERROR 52 



DUP * ERROR 53 
AAAAAA 



DUP * ERROR 54 
AAAAAA 



DUP * ERROR 55 
CARD SEQUENCE 
NNNNN 



DUP * ERROR 56 



DUP * ERROR 57 



DUP * ERROR 58 



DUP * ERROR 59 



DUP * ERROR 



DUP * ERROR 61 



the rejected name. 
Name specified in a dload, 
DREPL, or a DFLEB coutrol 
cord or a Fortran or sps 
control card has been reject- 
ed because the first 50 en- 
tries of the Equivalence 
table are full. AAAAAA is 
the rejected name. 
Sequence error has been 
found while reading a pro- 
gram to be loaded to disk 
storage. NNNNN is the se- 
quence number of the card 
that is out of sequence. 
Only cards with an eleven 
punch over the leftmost po- 
sition of the sequence num- 
ber (column 76) are se- 
quence checked; therefore, 
patch cards are excluded 
from the check. 
DIM number supplied in 
FORTRAN or SPS control card 
is in use in dim table, and 
Name specified in the same 
card has a different dim 
number in the Equivalence 
table. 

dim number supplied in 
FORTRAN or sPS coutrol card 
is in use in dim table, and 
Name specified in the same 
card has no matching name 
in the Equivalence table. 
'"to" dim entry number spe- 
cified in FORTRAN or SPS con- 
trol card refers to a per- 
manently assigned program 
storage area. 

dim entry number specified 
in a FORTRAN or sps control 
card is out of range of dim 
table entry capacity. 
Insufficient available storage 
space for a function specified 
by FORTRAN or SPS control 
card. 

DIM table full. 



Operator Action 

Messages 1-24. After the message is typed, the com- 
puter halts. The operator may then enter a corrected 
control record. Depressing the Start key returns con- 
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trol to the Monitor Control Record Analyzer routine 
to read the next Monitor Control record. 

Message 51. No operator action required. The rou- 
tine continues and loads tiie program without placing 
the name in the Equivalence table. 

Message 52. The routine continues and assigns a 
DIM entry and loads the program. 

Messages 53, 54. No operator action required. The 
routine continues and loads the program without 
placing a name in the Equivalence table. 

Message 55. After the message is typed the com- 
puter halts. To restart: 

1. Remove the cards from the hopper. 

2. Depress the Nonprocess Runout key. 

3. Remove the last two cards from the stacker. 

4. Rearrange cards from steps 1 and 3 in corrected 
sequence and place them in the hopper, 

5. Depress the Reader Start key. Note that paper 
tape contains no sequence number, therefore, 
it can never generate this type of error. 

Message 56. No operator action required. The rou- 
tine continues and loads the program, generating a 
DIM entry, without placing the name in the Equiva- 
lence table. 

Message 57. No operator action required. The rou- 
tine continues and loads the program, generating a 
DIM entry, and places the name in the Equivalence 
table. 

Messages 58, 59. No operator action required. The 
routine continues generating a dim entry and loading 
the program to disk storage. 

Messages 60, 61. After the message types, the com- 
puter halts without loading the programs, providing no 
other output is requested. ( If a Fortran or sps control 
record is included with the source data to indicate 
that the compiled or assembled object program is to 
be punched, the program is outputted without halting 
the computer.) To correct the error, ''a dload, drepl, 
or DDUMP Monitor Control record can be entered in the 
stacked input to load the program to a di£Ferent loca- 
tion from the work cylinders or to output the program. 
Depressing the Start key returns control to the Moni- 
tor Control Record Analyzer routine to read the next 
Monitor Control record. 

FORTRAN and SPS Output 

The Disk Utility Program contains the output routines 
for botib FORTRAN and sps. These routines load object 
programs to disk storage and punch them out into 
cards or paper tape. 



Following compilation or assembly, the message 

DK LOADED AAAAAA IIII DDDDDD 
SSS CCCCC EEEEE 4= 
is always typed to inform the user about the assigned 
DIM entry, aaaaaa is the supplied name, iiii is the 
DIM entry number, and the remainder of the message 
is the DIM entry. 

For programs being loaded into disk storage, the 
user may select the dim entry and/or name. Names 
and DIM numbers are supplied in Fortran ( *ldisk) or 
SPS (*NAME, *id number) control records. 

Processing of the Equivalence table and dim table 
and the actual loading is dependent upon whether 
the user supplies a Name and dim number, Name 
only, or dim number only. 

Nai;ne and number supplied by user. 

1. If DIM entry is in use in dim table. 

a. and Name is already in Equivalence table. 

1) If Name in table references number sup- 
plied, replace old program with new 
program. 

2) If Name in table references another num- 
ber, type error message 56, and load pro- 
gram with available dim entry number 
and no Name. 

b. and Name is not in Equivalence table, type 
error message 57 and load new program with 
available dim entry number and add Name in 
Equivalence table. 

2. If DIM entry is not in use in dim table. 

a. and Name is already in Equivalence table, 
type error message 51 and load program with 
assigned dim entry number without assigning 
Name. 

b. and Name is not in Equivalence table, load 
program and place Name in Equivalence 
table. 

Name only supplied by user. 

1. If an identical Name is in the Equivalence table, 
the program is loaded without the supplied name 
( error 51 will be indicated ) . 

2. If an identical Name is not in the Equivalence 
table, the object program is loaded, an available 
DIM entry is assigned, and the name is added 
to the Equivalence table. 

DIM entry number only supplied by user. 

1. Program is loaded. If number was in use, object 
program replaces old programs. Names refer- 
encing the old program are deleted from the 
Equivalence table. 
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sps ii-D is a disk-oriented assembly program designed to 
simplify the preparation of programs for the ibm 
1620 Data Processing System and the ibm 1710 Con- 
trol System. The development of larger and more 
versatile data processing systems like the 1620 and 
1710 has resulted in a greater number of, and more 
complex, machine language instructions. The di£5- 
culties of coding in machine language — a tedious and 
time-consuming task — have been recognized and one 
of the eflForts toward simplification is the system 
known as Symbolic Programming. 

A Symbolic Programming System (sps) permits 
the programmer to code in a symbolic language that 
is more meaningful and easy to handle than numeri- 
cal machine language, sps ii-d automatically assigns 
and keeps a record of storage locations and checks 
for coding errors. By relieving the programmer of 
these burdensome tasks, sps n-o significantly reduces 
the amount of programming time and e£Eort required. 

This section is intended to serve as a reference text 
for the SPS ii-d Programming System. It assumes that 
the programmer is familiar with the methods of data 
handling and the functions of instructions used in the 
1620 Data Processing System and the 1710 Control 
System. For those without this knowledge, informa- 
tion on 1620 and 1710 systems can be found in the 
appropriate reference manuals. Refer to ibm 1620 
Bibliography (Form A26-5692) and ibm 1710 Bibliog- 
raphy (Form A26-5695). 



Introduction 

The SPS II-D Programming System may be divided into 
the symbolic language used in writing a program, the 
library containing the subroutines and the linkage 
instructions (macro-instructions) that may be incor- 
porated into the program, and the processor program 
that is used to assemble the user's program. 

Symbolic Language 

Symbolic language is the notation used by the pro- 
grammer to write (code) the program. The program 
written in sps language is called a "source program." 
This language provides the programmer with mne- 
monic operation codes, special characters, and other 



necessary symbols. The use of symbolic names (la- 
bels ) makes a program independent of actual machine 
locations. Programs and routines written in sps lan- 
guage can be relocated and combined as desired. 
Routines within a program can be written indepen- 
dently with no loss of efficiency in the final program. 
Symbolic instructions may be added or deleted with- 
out reassigning storage addresses. 

Macro-Instructions, Subroutines, and Subprograms 

The macro-instructions that are written in a source 
program are commands to the processor to generate 
the necessary linkage instructions. Linkage instruc- 
tions provide the path to a subroutine or subprogram 
and a return patii to the user's program. These sub- 
routines may be special subroutines prepared by the 
user or any of seventeen ibm Library subroutines, 
such as floating divide, square root, and arctangent. 
(Subprograms are user- written only.) The ability to 
process macro-instructions simplifies progranmiing and 
reduces the time required to write a program. 

SPS II-D Processor 

After a source program is written, it is punched into 
cards, or into paper tape if the system is equipped 
with an ibm 1621 Paper Tape Reader. It is then "as- 
sembled" into a finished machine language program 
known as the "object program." 

Assembly is accomplished by the sps ii-d processor 
program which is stored on the disk. The function of 
the processor program is to translate the symbolic 
language of the programming system into the lan- 
guage of the 1620 or 1710. The translation is one for 
one — the processor produces one machine language 
instruction for each machine instruction (except 
macro-instructions) written in symbolic form. 



Symbolic Programming 

Symbolic programming may be defined as a method 
wherein names, characteristics of instructions, or 
closely related symbols are used to write programs. 
The core of the symbolic language is the operation 
code, sps ii-D permits the programmer to write 
programs in a simple, familiar language. It does not 



42 



require a detailed knowledge of the machine because, 
in coding the program, the programmer uses opera- 
tion codes that are in easily remembered mnemonic 
form rather than in the numerical language of the 
machine. Operation codes are of three types: Declara- 
tive, Imperative, and Control. 

Declarative Operation Codes 

Declarative operation codes are used for lie assign- 
ment of core storage for input areas, output areas, 
and working areas. The assigned areas are utilized by 
the object program and may contain the data to be 
processed and/or the constants (numerical or alpha- 
meric characters) required in the object program 
when the data is processed. Declarative statements 
never generate instructions in the object program, but 
may generate constants that are assembled as part 
of the object program. 

Imperative Operation Codes 

Imperative operation codes specify the operations or 
instructions that the object program is to perform. In 
this group are included all arithmetic, branching, and 
input/output statements. Most statements on the cod- 
ing sheet prepared by the programmer are of this 
type. These statements are translated one for one 
(except macro-instructions) and are assembled as 
the machine language instructions of the object pro- 
gram. 

Control Operation Codes 

Control operation codes are commands to the proces- 
sor that provide the programmer with control over 
portions of the assembly process. Instructions of this 
type do not normally generate instructions in the ob- 
ject program. 

The actual and mnemonic operation codes within 
these categories are presented under programming 

THE 1620/1710 USING SPS II-D. 

The statements or instructions in the source pro- 
gram must be entered by the programmer in logical 
sequence on the coding sheet. 



Coding Sheet 

The programmer enters all information relevant to 

the coding of the source program and subsequent 
assembly of the object program on a coding sheet, 
Form X26-5627 (Figure 6). Figure 7 shows a sample 
input card, Form J59692. The format of the input 
card or paper tape record follows the headings on 



the coding sheet. In paper tape, the first punching 
position of a record is said to be column 1. The card 
columns assigned to a single heading are referred to 
as a field. The following is an explanation of the 
headings in the order of their appearance on the 
sheet. 

Heading Line 

Space is provided at the top of each page for the 
name of the Program, Routine, Programmer, and for 
the Date. This information does not constitute part 
of the source program language and is not punched. 

Page Number (Columns 1-2) 

A 2-digit page number is entered to maintain the 
order of the program sheets. This normally numeri- 
cal entry becomes the first two digits of each state- 
ment that is punched from the sheet. 

Line Number (Columns 3-5) 

A 3-digit line number is entered on the sheet to main- 
tain the sequence of the statements coded. The first 
20 lines on each sheet are prenumbered 010, 020, 030, 
etc., through 200 At the bottom of the sheet, six 
unnumbered lines are provided for inserts or for con- 
tinuing the line numbering. The inserted statement 
should be numbered so that it falls sequentially be- 
tween the statements immediately preceding and 
following it. The arrangement of the prenumbered 
lines, 010, 020, etc., permits up to nine statements to 
be inserted between any two statements. After the 
cards for each of the lines are punched, they should 
be placed in correct numerical order. 

Label (Columns 6-11) 

The label field represents the machine location of 
either data or instructions. The field may be left blank 
or may be filled with a symbolic address. Only the 
data or instructions that are referred to elsewhere in 
the program need a label. 

A label may consist of up to six alphameric charac- 
ters beginning at the leftmost position in the label 
field. At least one of the characters must be alphabetic 
or one of four permissible special characters, namely, 
the equal sign { = ), slash symbol (/), "at" sign ((g)), 
and period (.). If the function of division is being 
used for address adjustment, the slash symbol cannot 
be used as a label character. 

The best labels to select are those that are mnemon- 
ically descriptive of the area or instructions to which 
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1620/1710 Symbolic Programming System 
Coding Sheet 



Program: Date: Page No. I ■ I ©f 

1 2 

Routine: Programmer: 



Line 
3 5 


Label 

6 1 1 


Operation 

12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 60 65 70 75 


0.1.0 








0,2,0 








0 1 3 1 0 








0 1 4 1 0 

" i 7.1.-- 








0,5,0 








0,5,0 








0 1 7 r 0 








0 . 8 , 0 








0 1 9 1 0 








1 1 0 1 0 


1111, 






1,1 0 








1 2 0 


III., 


1 1 1 


1 1 1 1 1 1 1 , 1 . 1 ,_ 


1,3,0 








1 1 4 1 0 


— 1 — 1 — 1 — 1 — i — 


1 1 1 


1 1 1 1 1 i 1 1 1 1 , 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 - 1 . 


1 1 5 1 0 








1 J 6 J 0 








1 1 7 ,0 








1,8,0 








1,9,0 








2,0,0 








1 1 




1 1 1 


1 1 1 : t 1 : 1 1 1 1 < 1 ! 1 1 1 , 1 ■ 1 1 1 ! 1 1 1 1 1 t 1 1 ! 1 1 1 ! 1 J 1 1 1 1 1 1 1 1 1 I 1 1 1 1 J 1 1 ,': , 


1 1 








1. 1 






1 1 i ! 1 I 1 1 ! 1 1 1 1 1 1 1 1 1 1 • 1 1 1 1 > 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 


1 1 






1 ' 1 ! • 1 1 ! 1 « 1 1 1 1 • 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 






1 1 i 1 .1 1 1 ! : 1 1 . : ..L...1....L. 1 i . 1 1 1 1 I I i a i 1 1 1 { 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 « 1 1 f I 








! i 1 1 L_I__i_J 1 ! 1 1 1 i 1 1 L_J 1 1 ! 1 1 !__! 1 1_J__1_I 1 1 1 1 1 1 I 1 1 ■ 1 1 I i 



Figure 6. 1620/1710 SPS Coding Sheet 



PACE LINE 



00 

I 2 

1 1 

2 2 
33 
44 
5 5 



000 

3 4 S 

1 1 1 

2 2 2 

3 3 3 
444 

5 5 5 

S.M 



999 

3 4 5 



000000 

6 7 S 3 10 II 

111111 

222222 
333333 
444444 
5 5 5 S 5 5 
666666 



999999 

6 7 8 9 10 11 

nMJSSfi92 



0 0 0 0 

12 13 14 15 
1111 



OPER AMDS AN D REMARKS 

OPER. I OPERANDS AND REMARKS ~ " 

OOOOOOOOOOOQOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

16 17 lin 20 21 22 23 24 25 20 27 21 29 30 at 32 3J 34 35 31 37 31 31 40 41 42 43 44 4546 47 4S 41 5091 S2 93 54 55 M 57 58 59 10 11 02 83 84 05 OC (7 tl (9 70 71 72 73 74 75 
111111111111111111111111111111111111111111111111111111111111 



2 2 2 2l2 2222222222222222222222222222222222 222222222 2222 2 2 2 2 2 2 2 2 2 2 2 2 



3 3 3 

4 4 4 4 

5 5 5 5 

6 6 6 6 



9 9 9 9 

12 13 14 IS 



IBM 1620 SYMBOLIC PROGRAMMING SYSTEM CARD ja 3333333333 

'4 44444444 4 44444444444444444444444444444444 41 4444 4 4 4444444444 
S555S5555S5555S555555S5555555555555S5SSS5S5555555555SS55555S 
6 66 66 8866666 66 66 66666 66 66 6666 66 66 66 6 6 686061)66666 66 6 6666666 6 6 



OPERANDS AND REMARKS 



8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8888888888888888888888888886888888888 
9999999999999999999S3999999999999999999999999999999999999999 

IS 17 18 19 20 21 22 23 24 25 28 27 28 29 30 31 32 33 34 35 38 37 38 39 40 41 42 43 44 45 46 47 41 49 SO 51 53 53 54 55 51 57 58 59 81) 81 62 63 64 65 66 67 68 69 70 71 7? 73 74 79 



1\ 



Figure 7. SPS Source Program Card 



they are assigned. Labels that have an obvious mean- 
ing not only provide easily remembered references 
for the original programmer but also assist others who 
may assume responsibility for the program. 

Operation (Columns 12-15) 

The 4-position operation field contains the actual 
2-digit numerical operation code or die mnemonic 
representation of the operation code to be performed. 
In either case, the first character of the operation code 
must start in the leftmost position, column 12, of the 
operation field. Listings of permissible mnemonic 
codes and actual operation codes are shown under 

PROGRAMMING THE 1620/1710 USING SPS H-D. 



Operands and Remarks (Columns 16-75) 

The operands and remarks field is used to specify the 
information that is to be operated upon and may con- 
tain, if desired, any additional remarks concerning 
the statement. 

For declarative operation statements, the first oper- 
and usually defines the length; the remaining oper- 
ands, if present, specify constants, an address, and 
remarks. 

For imperative operation statements, the operands 
and remarks field contains, at most, four items: three 
of these are operands and the fourth, remarks. The 
first two operands may be the symbolic or actual 



addresses of data or instructions, i.e., the P and Q por- 
tions of the instruction. The third operand, which 
should be numerical, is called the flag indicator oper- 
and and is used to set flags in the assembled instruc- 
tion. The final item consists of the remarks associated 
with each statement. Imperative statements need not 
contain all four items. Any one or more than one may 
be omitted. The two special characters whigh may not 
be used in an operand are the right and the left paren- 
thesis, )(. 

A control operation statement normally contains 
only one operand. 

Stafemenf Writing 

Certain rules must be observed in writing or coding 
the statements that make up the source program. This 
section contains rules that apply to the statements and 
their elements, rules governing the length and types 
of statements, use of special characters, the flag indi- 
cator operand and immediate (Q) operand, types of 
addresses used as operands, and address adjustment 
by arithmetic, a method that relieves the programmer 
of considerable effort and reduces the number of 
symbols required for a source program. 

Statements 

Symbolic statements are classed according to the op- 
eration code they contain, and thus are designated 
Declarative, Imperative, or Control statements. In 
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addition to the page and line number, a statement 
may contain a label, operation code, operands, and 
remarks. No statement in the source program may 
exceed 75 characters in length. Since page numbfer, 
line number, label, and operation require 15 positions, 
the operands and remarks field may not exceed 60 
characters. In the case of the paper tape sps, the 
end-of-line character is considered to be part of the 
operands and remarks field. 

Use of Special Characters in Statement Writing 

The comma, asterisk, end-of-line character, blank, 
"at" (@) sign, and dollar sign are special characters 
that possess distinct meanings in the writing of 
source programs. Their use, as well as that of the 
special characters used as operators for address ad- 
justment, are explained in detail in this section. 

Comma 

The comma is normally used to separate items in a 
statement. The term item refers here to parts of the 
operands and remarks field, such as the P and Q 
operands, the flag indicator operand, remarks, length, 
constants, etc. An imperative statement may consist 
of four items: the P and Q operands, the flag indicat- 
or operand, and remarks, but need not contain all 
four items. Any one or more than one may be omitted. 

If one item is omitted and more items follow, the 
comma that normally follows the omitted item must 
be present. For example, if the flag indicator operand 
is omitted but remarks are present in the instruction, 
the format of the field will be: 



Line 
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All imperative statements that contain remarks must 
include three commas in the operands field, even 
when the operands are omitted. During assembly, the 
omitted P or Q operands will be replaced by zeros in 
the P or Q portion of the assembled instruction. 

Commas indicating omission need not be present 
in statements in which the last item(s) is omitted. 
For example, in the statement in which both the flag 
indicator operand and remarks are omitted, no com- 
mas need be used following the second operand. 
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EXAMPLES 
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Statement 010 is a halt operation that requires 
three commas (,„) in front of the remarks; these take 
the place of the P, Q, and flag indicator operands. In 
statement 020, the first two commas set oflF the P and 
Q operands, whereas the third comma takes the place 
of the omitted flag indicator operand. The number 
of commas required for declarative statements may 
be one or two as explained under declarative opera- 
tions. 

Asterisk 

The asterisk has three uses: in writing comments, 
as an operand or term of an operand, and in address 
adjustment. 

Lines of descriptive information may be inserted 
in the program by placing an asterisk ( * ) in column 
6 of the label field. Comments then may be written 
in columns 7 through 75. Comments inserted in this 
way will appear in the symbolic output, but will not 
aflFect in any way the operation of the program. A 
comment statement does not produce an entry in the 
object program. 
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Statements 010, 020, and 030 are remarks that do not 
generate instructions. 

The asterisk can be used as the first character or 
term of an operand in an imperative statement and is 
interpreted by the program as the address of the high- 
order ( leftmost ) position of the address of the instruc- 
tion. It may also be used as any term of the operand to 
indicate the high-order (leftmost) position of the 
address of the instruction. 

When the asterisk is used in address adjustment as 
an operator, it indicates to the processor diat a mul- 
tiplication must be performed in order to adjust the 
address. 

Slash 

The slash symbol ( / ) may be used as the divide oper- 
ator for address adjustment, or if the address divide 



feature is disabled, the slash may be used as a label 
character. 



Line 
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Parentheses 

Parentheses are used to enclose the integer that speci- 
fies which index register is to be used in modification 
of the operand. 



Line 
3 S 


Label 
6 11 


Operation 
13 IS 


I< 20 3S 30 35 


Operands & Refno''k$ 
iO 45 50 


0. 1 .0 




A 







End-of-Line Character 

An end-of-line character E is required only on source 
statements that are to be processed on paper tape. 
Use of this character allows statements to be located 
on the tape immediately adjacent to each other, with 
no intervening blank characters. The statements are 
in "free" form; that is, they are not assigned a fixed 
number of positions. 

Source statements that are to be processed in 
punched card form do not require an end-of-line 
character; the remainder of the line is left blank and 
this is recognized by the processor as the end of the 
statement. 

When the end-of-line character is punched in a 
card for oflF-line conversion to paper taf)e, it is rep- 
resented by a 12-5-8 punch combination. 

Blank Character 

A blank character in operands of the source statement 
is ignored by the processor except in dac statements 
(alphameric constants), in which blanks are consid- 
ered valid characters. In effect, the statement is con- 
densed before it is processed. 

Because blanks are ignored by the processor, the 
programmer, to achieve clarity on his coding sheets 
and output listing, may write his statements in modi- 
fied "fixed" form (see Figure 8). 

In this example, columns 16, 36, and 57 are arbitrary 
choices for the locations of the operands. The comma 
following or replacing the P operand may be in any 
column from 16 through 35. 

Blanks are permitted in any position within a flag 
indicator operand exc^t between the 1 and 0 in num- 



ber 10, and between the 1 and 1 in number 11. A 
blank or blanks in the address operand of a declara- 
tive statement, when set off by commas, is interpreted 
by the processor as a zero address. 

"At" Sign 

When the "at" sign ((g)) is used as part of a constant 
being defined by a DC, dsc, or dac statement, a record 
mark (=j=) is created by the processor and inserted 
into the constant in place of the (a). Specific rules 
for use of the (a) are covered under declarative op- 
erations. 

Dollar Sign 

The dollar sign ($) is used in an operand to instruct 
the processor that the symbolic address in an operand 
has a specific heading character. The $ is written 
between the heading character and the symbol. For 
example, in an operand the heading character "5" 
and the symbol "SUM" appear as 5$SUM. For addi- 
tional information on the use of the $, refer to head- 
heading in the processor control operations sec- 
tion. 



Operands 

Flag Indicator Operand 

The flag indicator operand specifies the positions that 
are to be flagged in the assembled instruction. These 
positions are numbered from left to right, 0 through 
11, and must be listed sequentially. For example, if 
positions 2. 7, and 10 are to be flagged, the flag indi- 
cator operand should be coded 2710, not 2107. All 
positions may be flagged, if desired. The operand 
then will be coded 01234567891011 and must be writ- 
ten in that order. 

Normally, no flags are set when the flag indicator 
operand is omitted. However, if the flag indicator op- 
erand is omitted from immediate instructions 
(except tdm), a flag is automatically set in position 
Qr. If the operand is present, only the positions indi- 
cated are flagged. 

The flag indicator operand can be used to insert 
a flag over the units position of the P and Q addresses. 

Immediate (O Operand) 

With immediate-type instructions such as Add Im- 
mediate (am), Subtract Immediate (sm), and with 
actual operation codes that begin with the digit 1, 
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Figure 8. SPS Statements in Modified "Fixed" Form 



the Q operand represents the actual data to be used 
by the instruction. It may be absolute or symbolic as 
previously defined. High-order zeros of absolute data 
may be eliminated. 

During assembly, the processor automatically places 
a flag over position Q7 of an immediate instruction 
unless a flag indicator operand indicates otherwise. 
For example, the statement 



Line 


Label 


OperoMon 


16 20 25 30 


35 


Operands & Remorks 
40 49 50 


0, 1 .0 






TOT A L., 10 02.3 



causes the number 10023 to be subtracted from the 
field called total because the flag that terminates 
the field to be subtracted is automatically placed 
over position Q7. However, the statement 



Line 
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Operation 
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0,1 .0 




SA) 



ToJAkf. 1.0.0 2:3., .1.0. 



will cause only the number 23 to be subtracted from 
the field called total because the flag indicator oper- 
and directs that the field-terminating flag be placed 
over position Qio rather than Q7. There is one excep- 
tion to this rule: a transmit digit immediate instruc- 
tion ( TDM, code 15 ) does not require a flag; therefore, 
none is automatically set by the processor. 



Mask Digit Operand 

A mask digit operand is required to specify the mask 
digit for the Branch on Mask and Branch on Bit in- 
structions. The D in the following examples shows 
the position of the mask operand in the source state- 
ment. 
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which assembles to: 91 PPPPP DQQQQ 
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which assembles to: 90 PPPPP 

The mask operand may be symbolic or absolute. 
The P, Q, and flag operands are processed in the same 
manner as for other instructions. If the mask operand 
is an absolute value, the units character replaces the 
Q7 character of the Q operand. For example: 

Given: 
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Then: 



will assemble to: 91 12345 13456 

If the mask operand is a symbol, the units position 
of the symbolic address will be inserted in the Q7 
position of the assembled instruction. For example: 



Given: 
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Symbolic Address 

A symbolic address is the name assigned by the pro- 
grammer to the location of an instruction or a piece 
of data. A symbolic address is valid only if it is de- 
fined (given an actual numerical value) by a de«^lara- 
tive statement somewhere in the source program, or if 
it is used as the label of an instruction. Symbolic ad- 
dresses may contain from one to six characters 
(letters, digits, or special characters) with the follow- 
ing restrictions: 

1. At least one character must be nonnumerical. 

2. The only permissible special characters are: 
equal sign ( = ) , slash symbol ( / ) , "at" sign ( @ ) , 
and period (.). 

Blanks are permitted within a symbol; however, 
they are ignored by the processor during assembly. 

The example shown below contains both an actual 
address and a symbolic address. 



Then: 
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Will assemble to: 91 12345 53456 



In this example, the data in the field whose actual 
address is 12251 is added to a field whose address is 
the symbolic name total. 



Types of Addresses Used as Operands 

Operands assembled by the processor may be of 
three tj'pes: actual, symbolic, and asterisk. The indi- 
vidual applications for a particular type of address 
are described in the section progbamming the 
1620/1710 USING sps n-D. 



Asterisk Address 

When the asterisk is used as the first character of an 
operand in an imperative operation, it is interpreted 
by the processor to be the address of the high-order 
(leftmost) position of the instruction. For example, 
the statement 



Actual Address 

An actual address consists of five digits (00000-19999) 
for a standard capacity machine and is, as the name 
implies, the actual core storage address of a piece of 
data or an instruction. High-order zeros of an actual 
address may be eliminated. For example, the state- 
ment 
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causes the data in storage location 12251 to be added 
to the data in storage location 03684. 
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indicates to the processor that the Q portion of the 
instruction should contain the address of the instruc- 
tion. This instruction is assembled as 44 01234 01876, 
where start equals 1234 and the address assigned to 
the instruction is 1876. Thus, when executed in the 
object program, this instruction examines its own 
leftmost position (1876) for a flag and either branches 
to the instruction at location 01234 or continues, on 
the basis of the examination, to ilie next instruction 
located at 01888. 

When an asterisk (*) address is used with either 
declarative or control operations, it refers to the 



SPS II-D 49 



Form C26-5774-0 
Page Revised 1/20/64 
By TNL N26-0057 

rightmost position of storage last assigned by the 
location assignment counter of the processor — not to 
the leftmost character of the instruction. For example, 
the statements 
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Operands & Remarks 
35 40 4S 50 


0,1 ,0 




Tffl. 


1.2.0AS.t:7Q,0O.O. 


"l ?.!.«. 




D.C. , 






produce the instruction 

16 12045 70004= 

Since record marks can be defined only in declara- 
tive operations, an imperative statement should be 
followed by a DC statement when a record mark is 
required in the instruction. The rightmost position 
of the instruction is the rightmost position of storage 
last assigned; therefore, it is also the position where 
the 4= (constant) is stored. 

Address Adjustment of Operands 

Address adjustment is used to tell the processor to 
arithmetically adjust the addresses in operands. It is 
permitted with all types of addresses: actual, symbol- 
ic, and asterisk, and is used to refer to a location that 
is a given number of positions away from a specific 
address. Use of this feature of the language reduces 
the number of symbols necessary for a source pro- 
gram. 

By writing a + (plus sign) for addition, — (minus 
sign) for subtraction, / (slash) for division, and * 
(asterisk) for multiplication, immediately after the 
first or subsequent term of an operand ( an asterisk as 
a term of an operand does not represent multiplication 
but means the address of the instruction, as previously 
explained), the programmer indicates to the processor 
that the address is to be adjusted. 

Arithmetically adjusted operands may take the form 

/ / / 
« • « « 

A ± B dz C ± D 

where the terms A, B, C, and D may be numerical 
quantities. The number of terms in the operand is 
limited only by the size of the operand and remarks 
field. Thus the operand A + B * C — D may be fur- 
ther adjusted by writing after the last term another 
term, E, for example, A-fB*C-D-fE. 

In arithmetically adjusted operands, the operation 
or operations of multiplication and division are always 
performed first, followed by the addition and sub- 



traction required to calculate the adjusted address. 
Intermediate results that are greater than ten digits 
or a final result (adjusted address) that is over five 
digits, cannot be calculated by the processor. 

The following rules apply for address adjustment 
division operations. 

1. The result of an address division operation is the 
whole number quotient. Any remainder is lost. 

2. Division by zero gives the same result as division 
by one. 

3. The order of multiplications and divisions may 
affect the result. For example: 

1/2*2 - (l/2)*2 = (0)*2 = 0 
2*1/2 =r (2*l)/2 = (2)/2 = 1 
2/1*2 - (2/l)*2 =r (2)*2 = 4 

For the 1620 or 1710 with standard storage capaci- 
ty (20,000 storage positions), addresses that exceed 
19999 are considered errors; however, they will not 
be detected as such. Therefore it is possible, with a 
standard capacity machine, to assemble an object 
program for a machine with 40,000 or 60,000 positions 
of storage. For machines that have 40,000 or 60,000 
positions of core storage, the processor is automatical- 
ly modified to use the additional storage to enlarge 
the size of the symbol table. In that case, addresses 
that do not exceed 39999 or 59999, depending upon 
the storage capacity, are considered valid addresses. 

In using address adjustment, the programmer 
should be careful that insertions or deletions do not 
affect the adjusted address. For example, if a P oper- 
and in a branch (B) instruction refers to an address 
as * +48 (i.e., branch to the instruction that fol- 
lows the next three sequentially higher instructions), 
the programmer must ensure that no new instructions 
are introduced within the three instructions to make 
the * 4-48 incorrect. In this example, the asterisk ( * ) 
is the leftmost position of the instruction Itself. 



EXAMPLES 
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1000 V- 4-0 

toco 1* (zj^) 

1000 - 30 
/OOO + 
/OOO X 3 
/OOO X 4 

soo-f-czoxs'}-// 

(fOOY5)HZOX3)-// 

2000-^/2 

(ZCk}0X3)XZ 



The operands shown will produce the adjusted ad- 
dresses, as indicated, provided the location 1000 has 
been assigned to the symbolic address alpha, the lo- 



50 



cation 4 has been assigned the symbolic address L, 
and the instruction location ( * ) is equivalent to 2000. 

Operand Modification with Index Registers 

Any operand that can be indirectly addressed may be 
modified with an index register. The index register 
is specified by placing the number of the index regis- 
ter in parentheses as shown in the following examples. 



whereas the statements 
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Either of the preceding examples which will be as- 
sembled as 

21 XXXXX XXXXX 

The number in parentheses must be an integer from 
0 to 7. The processor decodes the number and places 
the proper flags over the operands. In the second 
example, the A in the index register portion of the 
P operand is ignored by the processor, however, it 
may be included by the programmer as an aid in 
keeping track of the IX band currently selected. The 
processor decodes the rightmost numerical character 
within the parentheses as the index register number. 
( See the note under call link or call load linkages 
in the Supervisor section.) 

Branch Operands 

In some instructions such as Branch and Branch Back, 
the Q address is not used, although a zero (00000) 
address is generated. Thus the instruction uses twelve 
storage positions. By using an * address in the follow- 
ing statements, 
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are stored as 

491366800000161204570000 

because the unused Q address is not eliminated. In 
the first example, only four positions of storage are 
saved; however, a considerable amount of storage 
can be saved in a program that contains many instruc- 
tions where the Q or both the Q and P portions of 
instructions are unused. Because the * in the dorg 
statements (see processor control operations) re- 
fers to the rightmost position of storage last assigned 
(Qii of the B instruction), * —3 is the address where 
the next instruction starts. 

To automatically eliminate the unused storage as- 
signed to Branch or Branch Back instructions, the 
following two imperative mnemonics are included in 
the sps ii-D language: 

Mnemonics Meaning 

B7 Branch and adjust location 

assignment counter 
BB2 Branch Back and adjust lo- 

cation assignment counter 

These mnemonics are written left-justified in the 
operation field of the statements as shown in the 
following example. 
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the instructions are condensed, to eliminate four posi- 
tions of the unused (zero) Q address, and are stored 
as 

49136680161204570000 



The first statement is equivalent to the following 
symbolic instructions: 

B ADDR 

DORG * -4 

where addr is the address used by the branch instruc- 
tion (b). The second statement is equivalent to the 
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following symbolic instructions: 
BB 

DORG * -9 

For all imperative statements, except B7 and BB2, 
the address assignment counter is incremented by 12. 
For B7 and BB2 statements, the address assignment 
counter is incremented by 7 and 2, respectively. A 
label may be included with a B7 or BB2 statement. 

Inserting Flags 

By placing a minus sign in front of the first term of 
an operand, a flag (minus sign) can be inserted 
over the units position of the adjusted address. This 
feature of address adjustment can be used for insert- 
ing flags required for Indirect Addressing (special 
feature). However, an operand written as —0 (minus 
zero ) does not insert the flag in the units position over 
the zero. When the minus sign is written in front of 
the first term of the operand in order to set a flag 
over the units position, other signs following the first 
term should be reversed so that the correct address 
is obtained. 



Programming the 1620/1710 
Using SPS ll-D 



This section describes in detail the various steps to be 
followed in writing a program for the 1620 or 1710 
using SPS ii-D. The material has been divided into 
three categories: Declarative Operations, Imperative 
Operations, and Processor Control Operations. The 
imperative operations that apply to the 1710 only are 
listed in Table 22 in the Appendix. 



Declarative Operations 

In programming the 1620 or 1710, all records, and any 
other data that is to be processed by the program, 
must be assigned storage areas. Normally, all records 
and data to be processed consist of fields of known 
length and arrangement. Unless otherwise specified. 



areas are automatically assigned core storage locations 
in the order in which they appear in the source 

statements. 

To assign addresses for instructions, constants, etc., 
the processor uses an address assignment counter. 
This counter is adjusted for each assignment made by 
the processor. If an address is assigned by the pro- 
grammer, the counter is not adjusted. 

The declarative statements provide the object pro- 
gram with the input/output areas, work areas, and 
constants it requires to accomplish its assigned task. 
These statements do not produce instructions that are 
executed in the object program. The entries, ds, dss, 
DAS, and DSB assign storage. The entries, dc, dsc, dvlc, 
DAC, DSAC, DSA, DNB, DDA, DGM, and DMES usually assigu 
storage, and also produce, in the object program, both 
the machine address of the area assigned and the con- 
stants that are to be stored in this area. Constants 
are then loaded with the object program. 

Declarative statements may be entered at any point 
in the source program. However, these statements 
are normally placed by themselves, preferably at the 
beginning or end of the program — not within the 
instruction area. If not placed at the beginning or end, 
the programmer is required to branch around an area 
assigned to data so the program will not attempt to 
execute what is in a data area as an instruction. 

The declarative mnemonic operation codes and 
their meanings follow: 



Code 


Meaning 


DS 


Define Symbol (Numerical) 


DSS 


Define Special Symbol (Numerical) 


DAS 


Define Alphameric Symbol 


DC 


Define Constant (Numerical) 


DSC 


Define Special Constant (Numerical) 


DVLC 


Define Variable Length Constant 


DAC 


Define Alphameric Constant 


DSAC 


Define Special Alphameric Constant 


DSA 


Define Symbolic Address 


DSB 


Define Symbolic Block 


DNB 


Define Numerical Blank 


DDA 


Define Disk Address 


DGM 


Define Group Mark 


DMES 


Define Message (1710 Only) 


DOT 


Define Octal Table 



DS — Define Symbol (Numerical) 

A DS statement may be used to define symbols used 
in the source program (i.e., to assign storage address- 
es or values to symbolic addresses or labels) and to 
assign storage for input, output, or working areas. 
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A Ds statement does not cause any data to be loaded 
with the object program. 

The length of the field is defined by the first oper- 
and. This operand must be positive and may be an 
absolute value or a symbolic name. If a symbolic 
name is used, the symbol must previously have been 
defined as an absolute value, that is, it must have 
appeared in the label field in a statement of the 
source program preceding tiie one in which it is 
used. Address adjustment may be used with this 
operand. 

The address in core storage of the field being de- 
fined may be assigned by the programmer or the 
programmer may let the processor assign the address. 
If the processor assigns the address, the statement 
is terminated after the first operand. If the program- 
mer assigns the address, a second operand, which 
may be symbolic, asterisk, or actual, is used to estab- 
lish the address of the field. Since data fields are 
addressed at their rightmost (low-order) digit, the 
processor assigns this position as tlie address of the 
field. Address adjustment may be used with the sec- 
ond operand. If the second operand is symbolic, it 
also must previously have been defined. Addresses 
assigned by the programmer do not disrupt the se- 
quence of addresses assigned by the processor. 

A DS statement may also be used to define a symbol, 
without assigning any storage, ie., to define it as an 
absolute value. In this case, the first operand is omit- 
ted (of written as 0) and the second operand 
represents the value (may not exceed five digits in 
length). The second operand may be an actual value 
or a previously defined symbol. To define storage 
which will not be referred to symbolically, tiae label 
of the DS statement may be omitted. 

The following statements define the field length 
only. When remarks are added to the statement, the 
field length must be followed by two commas. 



Lina 
3 S 


Labol 


Opofotion 
IS T5 


Operands & ttemoHn 

l< M 2S W » 40 <S so 


0, 1 .« 


DI.L.TAX 




7, 










0.9.0 




OA , 





In the next example, the programmer assigns the 
address of the field and excludes the field length (the 
first operand) from the statement because it is with- 
out significance, and replaces it with a comma. The 



following statements cause the processor to associate 
the address 12930 with the label sum: 



Line 
} i 




Operation 
12 IS 


Operands A Remarks 

14 30 35 30 35 40 4S so 


S.I ,0 


sm 




,J.29.3A 










«.}.« 


sm . . 


AS, , 


,.lZ9.3A,rW.O. .COMMAS ASA/M .R.£MJR£.D. , . . 



Again, in this example, two commas are required 
when remarks form part of the statement. 

The following statement, which is similar to the 
one previously given, is assigned a value that is other 
than an address. 



Line 
3 5 


lobel 
< II 


Operation 

12 15 


Operands & Remarks 

l>10I9 30 ]9 40 4S]0 


JIU'.d 


f.L. . . . 


i>A , 


,.1.7.,.f.L.D. IG.TH. .F.O.R. S.US.S£.O.U£Xr. S.TMTS. . . 



This statement defines the symbol fl as being equiva- 
lent to the value 17. Subsequent uses of this symbol are 
permitted because the symbol has been defined. 

It should be noted that an area defined by the 
processor for a ds statement is always addressed at 
the rightmost position. However, to use this area for 
input/output, the leftmost digit must be addressed. 
This is done by using a pss statement in place of a 
DS statement or by address adjustment with a ds 
statement, which subtracts a number that is one less 
than the length of the area from the address of the 
area. In a previous example, where deltax was de- 
fined as having a field length of 7, the operand of 
another instruction to read numerical data into the 
DELTAX field should be written as deltax —6. 

DSS — Define Special Symbol (Numerical) 

The DSS statement is similar to the ds statement with 
one exception: when the second operand is omitted, 
the processor assigns the leftmost position as the ad- 
dress of tlie field. If the second operand is assigned 
by the programmer, this address is assumed to be 
equivalent to the leftmost position of the field. A 
DSS statement is normally used to define a storage area 
for input/output. The data in such an area may be 
moved during execution of the object program by a 
Transmit Record instruction which requires that an 
address assigned to an area must be that of the left- 
most position. 
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DAS — Define Alphameric Symbol 

The DAS statement is similar to the ds statement with 
two exceptions: 

1. The length specified by the first operand is auto- 
matically doubled by the processor to allow for 
alphameric data. Each alphameric character re- 
quires two storage positions. 

2. The address of the field, if generated by the proc- 
essor, is the leftmost position of the field plus 
one. The position is always odd-numbered, as it 
must be with any alphameric field. 

The following example illustrates a das statement. 



Line 
3 s 


Lobel 

i II 


operation 

12 15 


Operands & Remarks 

li 20 25 30 35 40 4$ 50 


0,1 .0 


T./.T.Lf. 


AAA 


3.0. 










0,2,0 


T./.rL£ 


OAS, 


3.0.,.iJi.E.m».K.S. .R.E.QU.I.X.E. .T.W.O. C.omA.S. 



This statement defines an area for input/output that 
can contain 30 alphameric characters. The processor 
assigns 60 positions in core storage to accommodate 
alphameric coding. The output listing indicates this 
I by typing 60 when this statement is assembled and 
listed. The omission of the second operand causes the 
processor to assign an address. During internal trans- 
mission of a field which utilizes an input-output area 
that is defined with a das, the area must be addressed 
at its rightmost position. In the example, the address 
may be achieved through address adjustment, i.e., 
TITLE + 2 * 30 - 2. 

DC — Define Constant (Numerical) 

The DC statement may be used to enter numerical 
constants into the object program, and, for ease of 
reference, to assign names to the constants. The label 
field contains the name by which the constant is 
known, dc statements consist of three operands. The 
first operand, which must be positive, indicates tiie 
length of the constant field; the second, the actual 
constant; the third, the storage address of the con- 
stant. The third operand is not used when the pro- 
grammer prefers to let the processor assign the 
storage address. The assigned address is the rightmost 
storage position of the constant. The leftmost storage 
position is the position over which the processor 
places a flag. 

Whenever remarks form a part of a dc statement, 
three commas must be included in the statement. 
The first and third operands may be symbolic or 
actual. They are subject to address adjustment. A 
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symbolic address must previously have been defined 
to be valid. 

If the first operand (length of constant) is smaller 
than the constant, an invalid condition results (see 
Error 10). If it is larger than the constant, zeros are 
inserted to the left of the constant so that the num- 
ber of zeros plus the number of positions in the con- 
stant equals the length of the field (first operand), 

A constant that is a positive number will be stored 
in the form of an unsigned integer; a negative num- 
ber, in the form of a signed integer. A negative num- 
ber has the minus sign written in front of the con- 
stant as part of the second operand. During assembly, 
a negative number produces a flag (minus sign) over 
the units position of the constant. 

If the constant 0100000 and -0004337769 are re- 
quired, they may be defined as follows: 



Line 

3 i 


Label 

6 II 


Operotion 
12 15 


operands & Remarks 

1« 20 2S 30 35 40 45 so 


0.1 .0 


C.0N.S7S 


if.c, , 


l.i.i.O.O.OOO 










,«.?,». 


C.0MS.T.1 


i>fi, , 


7.,,1.0.0.0fl.O.y,,3. .COMMAS. ffi.R. Ji.£/4A.li.KS. 








1 1 1 1 ' 1 1 1 1 I 1 1 1 1 1 i 1 1 


0,3,0 


CAN.ST.2 




i,0.,rA3.3.7.7.6,9. 










0,4,0 


C.0.f\/,ST2 


, 


/,«i,-,«3,3.7,7&5,,,,5 .COMMAS. f.O.R. .RIHA.R.tC.S. . . 



In both cases, constant 1 and constant 2, the length of 
the field is greater than the constant and the address 
of these constants is assigned by the processor. These 
constants will appear in the object program as 

0100000 
0004337769 

A record mark may be used in a constant but must 
be in the units position and must be written as the 
character (5), The following example contains state- 
ments that: 

1. Store a record mark by itself as a constant. 

2. Store a constant 6 and record mark. 

3. Store a minus 0773 and record mark. 



Line 

3 5 


Lobe! 


operation 

12 15 


Operondt & Remorlis 

16 20 25 30 35 40 45 SO 


0 . 1 .O 




OA . 


1 ,9, s.s.r.o/t.e. a. R.£.cp.g.D. MA/i.K. on.lv. 










0,2,0 


CON.S,TX 


D.C, , 


2,>,6j^.f,,,S.TAR.e. A. .S,/.X. ANA ,R,ECORP. MAAK, , , 










0,3,0 


c.ojf.s.rv 




S.,.-.7.7.3&.,»S.T0R.£. A M.IN.U.S. .7.73. .A.ND. RM , . 



These constants appear in the object program as: 

4= 
0773 
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A constant 7 with a flag (7) is generated by either 
of the following statements: 



Line 
3 S 


Lobel 
i n 


Operotion 

12 15 


Operonds & Remorkj 

16 30 25 30 35 40 45 so 




c.oN.srz 


P.C, . 


J ,-7.f.iST0/i£ A 7 W.ITM A. FlAG 










0,3 ,0 


cms.T.2 


PA , 


l.,.7->.i.S.T.0R£. A 7 W.I7H A .FIA.G. 



A flag is always placed over a 1-digit constant ( except 
a record mark) regardless of the sign (positive or 
negative). Therefore, the programmer must use two 
positions to define a positive 1-digit constant. 

Constants may not exceed 50 characters. The fol- 
lowing statement generates a constant containing 50 
zeros. 



Line 

3 S 


Label 

b n 


Operation 

12 15 


Operands 8. Remorki 

16 M 25 30 35 40 45 M 


0,1,0 


2£.R.O. , 


DA , 


SO , 0.,., STORE f.l FJY ZE/tOS , , 



To store a zero with a flag at location 401, the fol- 
lowing statement can be used: 



Line 
3 i 


label 
6 n 


Operation 
12 15 


Operands & RemorVs 

16 » 75 30 35 40 45 50 


B.1.0 




PA, , 


l.,.-P.,A01, STORE A ZlR.0, UlJjH, A f.L.AG , 



DSC — Define Special Constant (Numerical) 

This statement is similar to the dc statement in that 
the first, third, and fourth operands are written in 
the same manner as a dc statement. The second oper- 
and (the constant itself) is assigned an address diat 
corresponds to the leftmost digit of that constant. The 
constant may contain digits, flagged digits, and the @ 
character. The @ character is translated by the proc- 
essor into a record mark and may appear only as 
the low-order character of the constant. The high- 
order digit of the constant is not automatically flagged 
by the processor. Flagged digits in the constant are 
specified by J-R for 1-9. A flagged zero is indicated by 
an 11-0 punch ( card only ) . A flagged zero may not be 
used when input is from the paper tape reader or 
from the typewriter. 



DVLC — Define Variable Length Constant 

The DVLC statement permits the programmer to speci- 
fy one or more constants of the same or different 
lengths with one statement. The statement requires a 
minimum of three operands; the first specifies the 
address of the low-order position of the first con- 
stant; the second, which must be positive, specifies the 
length of the first constant; the third specifies the con- 
stant itself. Each constant after the first will require 
two operands, one for the length and one for the 
constant. All operands may be actual or symbolic 
and may be arithmetically adjusted. 

The first operand is used only if the programmer 
wishes to specify an address. If it is omitted, the 
processor will assign the address of tlie first constant. 
The total length of all constants must not exceed 50 
digits. 

Constants are flagged in the high-order position. 
The address of the low-order position of the first 
constant (third operand) is assigned to the label of 
the statement. Negative constants should be preceded 
by a minus sign. Symbols used in the constant oper- 
and need not have been previously defined, but may 
have appeared as labels in any part of the program. 
No remarks or (a) characters are permitted within 
this statement. 

The constant operands are treated as normal dsa 
operands. This means that the constant, if specified as 
an actual number, may not exceed five digits. How- 
ever, in a DVLC statement, address adjustment may be 
used within the constant operand to obtain an output 
of up to ten significant digits. If the address adjust- 
ment results in a number greater than ten digits in 
length, only the ten right-most digits will be retained. 

The following statement defines a constant of 
10000 which can be referred to by two different la- 
bels: 



3 S 


Label 


OperoNof 
12 15 


Operands & Remarks 

U 20 25 30 35 40 45 SO 


0,1 .0 


C.OMS.T 




NAtnEiSi 10000 



DAC — Define Alphameric Constant 

To define a constant consisting of alphameric data, the 
operation code dac is used. The dag statement is sim- 
ilar to the DC statement with three exceptions: 
1. The first operand (length) is automatically 
doubled by the processor to allow two storage 
positions for each alphameric charact^. 
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2. The storage address of the constant is the ad- 
dress of the leftmost position plus one. This 
address must b6 an odd-numbered address to 
comply with the requirements for alphameric data 
storage. An odd-numbered address will auto- 
matically be assigned, if it is assigned by the 
processor. If it is specified by the programmer 
(as in line 020 of the following example), the 
processor assigns the specified address and pro- 
vides that the constant is stored beginning one 
position to the left of the specified address. In 
the latter case, the processor makes no test of 
whether or not the address is odd-numbered or 
whether the address (or the position to the left) 
has been previously assigned. 

3. High-order zeros are not automatically inserted 
in the constant by the processor, as is die case 
with a DC statement when the field length ex- 
ceeds the number of characters. The number of 
characters, including blank characters, should not 
be greater or less than the specified lei^igth 
(first operand). When the rightmost position or 
positions of the constant are blank characters, 
they should be followed by a comma or end-of- 
line character. For card input, the rightmost 
position must be followed by a comma or a 
record mark. 

Note: Only dac and dnb instructions may be 
used to insert blank characters into storage. 



Line 
3 5 


label 


Operation 
12 IS 


Operands & Remarks 

14 20 25 30 3S 40 4S 50 


0,1 ,0 




VAP, 


l,7,,P,£.Cfi iH-JB TU.NCHED.,,,END, M£S&,A&£ . 










0,2,0 




D,AC^ 


6,, ,,9,0,1,, ,S,T,0,R,E, ,6, ,A,L,P,H,A, ,B,L,K,S 










0,3.0 






1„^,,,,,ALPH,A, TKM FOR OUTPUT^ AJ^.^A 










0,4,0 


C,0,W,ST, 




l,3,,,D,E,LJ,A,X=,O.fipp/S?^,^,_SX0.R£. ,C.N,S,T,,,/?,M, , . , . 



In the example shown: 

1. Statement 010 uses 34 storage positions to store 
the 17-position constant (deck 3478 punched) 

2. Statement 020 places 6 alphameric blanks into 
storage locations 900 through 911. Also, a flag is 
set in location 900. 

3. Statement 030 records an alphameric record mark 
in storage. 

4. Statement 040 places a 30-position constant, in- 
cluding a record mark, in storage. 

A 50-character alphameric constant (maximum allow- 
able) occupies 100 positions of storage. A flag is set 



over the leftmost position of the field. Addressing 
this constant for internal field transmission requires 
the adidress outpot +50 * 2—2, where oxnpur is the 
symbol (label) which represents the leftmost address 
plus one. 

DSAC — Define Special Alphameric Constant 

This statement is similar to the dac statement with 
one exception. The constant in a dsac statement is 
addressed by the low-order digit of the field. The 
high-order digit of the field is flagged as in a dac 
statement. 

DSA — Define Symbolic Address 

The DSA statement may be used to store a series 
of up to ten addresses as constants, as part of the 
object program. These addresses can be used for in- 
struction modification or for setting up a table of 
addresses through which the programmer may index 
to modify a routine. 

Each entry (symbolic or actual) in the operands 
field, with the exception of the last entry, is followed 
by a comma. The equivalent machine address of each 
entry is stored as a 5-digit constant. The constants 
are stored adjacent to each other with a flag over the 
high-order position of each. The label field of this 
statement must contain the symbolic name by which 
the table of constants may be referred to. An address 
at which this table is stored in core storage may not 
be assigned by the programmer nor may any re- 
marks be included in the dsa statement. The address 
assigned by the processor is the address at which the 
rightmost digit of the first constant will be located. 

Note: If the last operand is followed by a comma, an 
additional zero address (00000) is assembled in the 
table. 

In the example that follows, symbols alpha, origin, 
and OUTPUT are equivalent to addresses 3200, 3600, 
and 15000, respectively. 



Line 
3 5 


Lobcl 

6 11 


Operotior 
12 IS 


Operands & Remarks 

M 20 3SW3S40 4SM 


0.1.0 


TAfi.L.£. 




A.LJ>.HA.» ,Qf, ' &. 1 ./Vj 323.k. ,W. T.P.(/.T.'.S.O 



The constants are stored as 

032000360003234i4950 

(06200) I 
(06204) 
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If the leftmost digit of these four constants is located 
at 06200, then the address equivalent to table will be 
06204, the location of the rightmost digit of alpha. 

DSB — Define Symbolic Block 

A DSB statement is used to define an area of storage 
for storing a numerical array. A dsb statement does not 
cause any data to be loaded with the object program. 
The label of this statement is converted to the address 
at which the first element of the array is stored (i.e., 
the rightmost position of the first element). The first 
operand indicates the size of each element; the sec- 
ond, the number of elements. Both operands must be 
positive. 

Either or both operands may be symbolic or actual. 
If symbolic, the symbol must have been previously de- 
fined. A third operand is required if the programmer 
wishes to assign the address. For example, to store 
an array of 75 elements, with each element containing 
15 digits, the statement used would be: 



Line 


label 


Operation 








Operands & Remarlu 


3 S 


i 11 


12 15 


1i 20 2S 


30 


IS 


40 49 » 








1.5,. 7.5... 7.5.1 A 



In this example, the array begins at location 07500 
(leftmost position of the first 15-digit element), abkay 
is equivalent to 07514 (address of the first element). 



If six numerical blanks are required, they may be 
defined as follows: 



Line 
3 5 


Label 


Operation 

\7 15 


\i 20 


H 30 3 


Operands & Remorks 
5 40 4S SO 


0.1 .0 


B.L.AMK.S 


D.IV.P. 


6. 



The processor assigns the storage address of the six 
blank positions to the label blanks. In the example 
that follows, the programmer assigns the storage ad- 
dress as 08625. 



Line 
3 S 


Lobel 


Operotion 
13 IS 


Operandi & Remorki 

14 20 3S 30 35 40 45 90 




BJ.AN.K.S 


P,A/,?, 


6.,B.6.2.r>.S.T0.7f.£. .5./X .C.A.L. 3.L.A.N.H5. . . 



In a dnb statement, two commas are required when- 
ever remarks are included in the statement; the first 
after the length operand and the second after, or in 
place of, the address operand. 

DDA — Define Disk Address 

The DDA statement allows the programmer to define 
the disk control field for a seek, read, write, or check 
operation. This field is assembled as a 14-digit con- 
stant divided into fields as shown below. 



DNB — Define Numerical Blank 

A dnb statement is used to define a field of numerical 
blanks. (The 8-4 card code denotes a numerical 
blank.) Up to 99 blanks may be specified in each 
DNB statement. In addition to a label, two operands 
can be assigned by the programmer. The first of 
these specifies the number of blank characters desired 
( field length ) . This number must be positive. The sec- 
ond operand specifies the rightmost address of die 
field where the blanks are stored in the object pro- 
gram. 

If the second operand is omitted and the statement 
is labeled, the address assigned to the label by the 
processor is the rightmost storage position of the 
blank field. The blank field does not contain a flag 
in its leftmost position. 

If the programmer wishes to move a blank field in 
core storage, he must either define a single-digit 
constant with a flag bit in the position in front of the 
leftmost position of the blank field, or a record mark 
in the position following the rightmost position of 
the blank field. 



Drive 
Code 



Sector 
Address 



Sector 
Count 



Core 
Address 



The statement requires five operands, each of which 
may be actual or symbolic and may use address 
adjustment. 

1. The first operand specifies the address of the 
high-order position (drive code) of the disk 
control field. This address must be even. If the 
operand is omitted, the processor assigns the next 
valid address. A comma indicating the end of 
the operand must be present. 

2. The second operand specifies the module ( drive ) 
to be acted upon by the input/output or control 
instruction that addresses the disk control field. 
During assembly, this operand becomes the first 
digit of the 14-digit constant. If the digit is even 
or zero, the module to be used by the insti'uction 
is determined by the second digit (high-order 
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digit of the sector address) of the constant; if it 
is odd, the module is determined by the digit 
itself. When the operand is in symbolic form, the 
low-order digit of the equivalent numerical value 
of the symbol becomes the first digit of the 
assembled 14-digit constant. See Example 1 
(EXl). 

3. The third operand specifies the 5-digit sector 

address (00000-79999) where reading, writing, 
or checking begins. From this address the com- 
puter determines the correct cylinder, head, and 
sector. It also determines the drive module un- 
less overridden by the second operand. 

4. The fourth operand indicates the number of sec- 
tors (1 to 200) to be read, written, or checked. 

5. The last operand specifies the 5-digit core stor- 
age address used for data transfers to and from 
disk storage. Reading or writing begins at the 
specified address and extends into successively 
higher-numbered core storage locations. This 
address must be even. 

Each of the last three operands assembles with a 
flag over the high-order digit. If a label is used with 
this mnemonic, it is assigned the address of the drive 
code. 

EXAMPLES 

Assume: M=02 

DISK-14540 

SECT=150 

COREnzlOOOO 



Line 

3 5 


Label 

6 11 


Opeforior 
i: IS 


Operandi & Remorks 

l< » 2S » 35 40 4S 50 


0.1 ,0 


£',X,J, , , 




, JH,PJ,S,/(,,S£CT_,CpR£ 










0,2,0 






CXlP.*A»ifi,£.5.0.,.S£CT+ZyCp,Ti,£ 



For these examples, the assembled output (disk 
control field) would appear as follows: 

214540l50l0000 
21625015210000 

Address of FIELD and CYLD 

All DDA statements that will be used by the Monitor 
I/O Routine must be followed by a record mark 
(DC 1, @). 

DGM — Define Group Mark 

A DGM statement is used to place a group mark at 
some specific address in core storage. It needs only 



one operand; the address where a group mark is de- 
sired. The operand can be actual, symbolic, or arith- 
metically adjusted. If no operand is specified, a group 
mark is placed in the next available core storage lo- 
cation. Only one group mark may be defined with 
each DGM statement. 



DMES — Define Message (1710 Only) 

The DMES instruction aids the 1710 user in program- 
ming the output control codes of the Serial Input/Out- 
put Channel (SIOC). With one dmes statement, a 
complete message of alphabetic, numerical, or mixed- 
mode data can be specified. Although this mnemonic 
is oriented to the SIOC output printer, it may be used 
to program other devices which are wired to accept 
the control codes of SIOC. 

The DMES statement requires three operands; ad- 
dress, starting mode, and message. Remarks are not 
permitted. 

1. The address operand may be used by the pro- 
grammer to assign an address to a message, in 
which case he assumes the responsibility of cor- 
rectly positioning the message if alphabetic out- 
put is indicated. If no particular address is de- 
sired, a comma must be placed in lieu of the 
address operand. The processor will then assign 
a valid address. 

2. The second operand specifies the starting mode; 
an A indicates the alphabetic mode, the omission 
of the operand indicates the numerical mode. 
Even though this operand may specify an alpha- 
betic starting mode, the correct positioning of 
the message is still dependent upon the address 
operand. 

3. The message operand consists of alphabetic, nu- 
merical, or mixed-mode data, and special charac- 
ters which have been assigned to the control 
functions for use in a dmes statement (see Table 
2). 

The special characters are enclosed in parentheses 
and inserted into the message wherever they are 
needed. (Note: Parentheses are not permitted in the 
"data" portion of a message operand.) 

If information is to be placed into a message some- 
time after it is stored, the space must be reserved by 
the programmer when the statement is written. This 
is normally done by writing zeros in the message in 
place of the data which is to be inserted later. 

The length of the message need not be specified 
by the programmer; however, if the number of core 
storage locations needed to contain the message ex- 
ceed 100, an error is indicated. Note: Control charac- 
ters require two core locations when in numerical 
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Table 2. DMES Representation of Output Printer Control 
Codes 





ASSEMBLED 
CONTROL CODE 




CHAR- 
ACTER 


ALPHA- 
MERIC 


NUMER- 
ICAL 


FUNCTION 


(P) 


0 + 71 


^1 


Type numerical period 


(M) 


0 + 72 


+ 2 


Change mode 


(C\ 
v^) 


0 + 73 


+3 




(B) 


0 + 74 


+4 


Shift printer ribbon to black 


(A) 


0 + 75 


+5 


Shift printer ribbon to red (Alert) 


(T) 


0 + 76 


+ 6 


Tabulate printer carriage 


(S) ■ 


0+77 


+ 7 


Space printer carriage one position 


(R) 


0 + 78 


+8 


Return printer carriage and advance 

one line 


(F) 


0+79 


+9 


Advance printing form to next form 
feed stop 


(E) 


0 + 0 + 


+ + 


End of message 



mode and four locations when in alphabetic mode. ) 

Flagged digits can be placed into a numerical mes- 
sage by subsituting the letter J-R for 1-9. A flagged 
zero is indicated by a 0 ( card only ) . 

Some examples of dmes statements are shown in 
Figure 9. In the example of alphabetic mode, notice 
that the programmer has assigned the symbolic ad- 
dress MESAG and therefore is responsible for the cor- 
rect positioning of the entire message. Since the mes- 
sage begins in the alphabetic mode, the address 
assigned to mesag corresponds to the second digit of 
the stored data. 

In the example of a mixed-mode message, zeros 
were placed in the message to reserve space for tem- 
perature and pressure readings. These are normally 
inserted in the message before it is typed out. 

INVALID MODE CHANGES 

Since the ibm 1717 Output Printer and the ibm 1620 
console typewriter both require alpha messages to 
start at even core addresses, an invalid message can 
be created when programming a change from numeri- 
cal to alphabetic mode. The invalid mode change 
occurs when the alphabetic characters following the 
change are assigned addresses starting at an odd core 
location instead of an even core location. Such an 
assignment is incorrect and is indicated as an error. 

DOT Declarative Statement 

A declarative statement has been included for the 
generation of an octal power table: dot (Define Octal 
Table). An octal power table is required for the two 



1620 Model 2 instructions, Octal to Decimal conver- 
sion (OTD-96) and Decimal to Octal conversion 
(DTO-97). 

The DOT declarative has two operands: the first 
operand specifies the highest power-of-eight required 
in the table — this number must be equal to or less 
than 13. The second operand specifies the address 
of the table-ending record mark — if the second oper- 
and is omitted, the location of the octal table will be 
assigned by the processor. If the dot statement is 
labeled, the label refers to the table-ending record 
mark as shown in the following example. 

Source Statement Assembled Data 

TABLE DOT 5, 00500 3276840965126408014= 
OTD TABLE-1, DATA 9600499xxxxx 

Note: The Octal to Decimal (otd) instruction re- 
quires that the P address refer to the units digit of 
the power-of-eight table (TABLE— 1 in the example 
above ) . From this it can be seen that if the user does 
not assign the table address (either symbolically or 
with the absolute address) he must use a label for 
the dot statement. 

The Decimal to Octal (dto) instruction requires 
that the Q address refer to the units digit of the high- 
est power-of-eight number necessary for a successful 
conversion. The following example shows the correla- 
tion of the powers-of-eight table to the dot, dto, and 
OTD statements. 

Source Statement Assembled Data 

TABLE DOT 6 2621443276840965126408014. 

(assume =t= address of 10000 
assigned by processor) 
OTD TABLE-1, DATA 9609999xxxxx 
DTO P, TABLE-19 97xxxxx09981 

The power-of-eight number specified in the dot 
statement and the corresponding address arithmetic 
for the Q address symbol of the dto statement are 
shown in the following list. 

Octal Power Address Arithmetic 



8« 


= TABLE-1 


8^ 


= TABLE-3 


82 


= TABLE-5 


83 


= TABLE-7 


8* 


= TABLE-10 


8^ 


= TABLE-14 


8« 


= TABLE-19 


8^ 


= TABLE-25 


88 


= TABLE-32 


89 


z= TABLE-40 
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810 

§12 
813 



TABLE-49 
TABLE-59 
TABLE-69 
TABLE-80 



With a first operand of 13, 14 power-of -eight numbers 
are generated for the table (S** through S^*). The 
user must supply any required number greater than 8 
to the 13th power. 

Summary of Declarative Operations 

As stated earlier, areas being defined by the processor 
are assigned core storage locations in the order in 
which they are processed. To do this, the processor 
program uses a location assignment counter to keep 
track of the address of the last assigned storage loca- 
tion. Table 15 in the Appendix shows the amount add- 
ed to the location assignment counter for each instruc- 
tion and summarizes the coding and operation of each 
declarative mnemonic. 

Numerical Mode 



1620/1710 Imperative Operations 

Imperative operations may be divided into five classes: 

1. Arithmetic 

2. Internal data transmission 

3. Branch 

4. Input/Output and control 

5. Miscellaneous 

This section describes the five classes of imperative 
operations and gives some examples of statements 
written in symbolic language. For a detailed descrip- 
tion of the function of each machine language in- 
struction, refer to the appropriate machine reference 
manual. 

Arithmetic 

Arithmetic operations are those that involve adding, 
subtracting, multiplying, or dividing. Table 16 in the 
Appendix is a hst of all arithmetic mnemonics and 
a brief description of their P and Q address functions. 



Line 
3 5 


Label 

6 u 


Operation 
12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 60 


0.1 .0 


hl,U,M, , , 


DM.E.S 


,,j/./e,).0,aO.OO/,r,),/.8.5,f^,).O.O.O.r.S,).7.2/,«,).8.2,7/,£.) 



CORE STORAGE +8 00000 +6 185 +7 000 + 7 72 +8 82 7+ + 

TYPED OUTPUT 00000 185 000 72 

827 



Alphabetic Mode 



Line 


Label 


Operation 






Operands & Remarks 






3 5 


6 11 


12 15 


16 20 


25 30 


35 40 45 so 


55 


«0 


0,1,0 


fl.L.PMA. 


D,M,e,s 


/W,£,S,/l,6..y?,. 


(R.) ST ART 


P.R.0.6 (,S.) .A.tX R.) .5.9.a7.C . . 


-1 1 1 1 1 





CORE STORAGE 

(Address of ALPHA and MESAG) ■ 

TYPED OUTPUT 




0 + 78626341596300575956470*7741630*78757978770+0 + 

__f 



START PROG AT 
5987 



Mixed Mode 



L'ne 
3 5 


Label 

6 II 


Operation 
12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 40 


0, 1 ,0 


M.J.X.£.D 


/>,yM,£,s 


yC.e.) T.£MP/M)/SJ.O.O.O.(.P.yO.(.PJXM).P./?£^.CM).(fi.).0.0,0.^^^ , 



T^^l ^^^ ^^ ^^ 



CORE STORAGE 0*78634554570+ 72 +7000 +10+8+2575945620 

TEMP 000.0 

TYPED OUTPUT ^^^^ 

Figure 9. Examples SPS DMES Statements 
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Some examples of arithmetic statements written in 
symbolic language follow: 



Line 
3 5 


Label 


OperoHon 
1! 15 


Operands & Remarks 

li 20 25 30 35 40 45 50 


0,1,0 




/», , , 


C.O.ST.t. LABOR. 










0,2,0 




, 1 


CASXuLA,BOR.,.,A.DA .LA.BflA JA X.O.SJ. 










0,3,0 




s,^ , 


S.TP.e.£,+4.,2.,J0 










0,^,0 




A,M, , 


8,8.,A5,,4.0.,.M.AL.F.-AM,U.SJ, .PA.S.IJJ V.e. A.M.T . . 










0,5,0 






9,7,,,i>,PA/,l), 










0,6,0 




P, 1 , 


8.b.,J>.V.K 



These statements cause the following operations 
to be performed: 

Line 010 — Add labor amount to cost amount. 

020 — Same as line 010 except three commas 
are required for remarks. 

030 — Subtract a constant 02 from the field 
located at store plus 4. 

040 — Add a constant 05 to the field at storage 
location 00088. 

050 — Move DDND (dividend) to the product 
area (storage location 00097). 

060 — Divide the dividend by successive sub- 
tractions of the DVR (divisor) starting 
in storage location 00086. 

Internal Data Transmission 

Internal data transmission operations are those that 
cause the movement of data from one core storage 
location to another. They require both a P and a Q 
address. Table 17 in the Appendix lists all internal 
data transmission mnemonics and their P and Q 
functions. 

Some examples of internal data transmission state- 
ments written in symbolic language follow: 



Line 
3 5 


Label 

b 11 


Operation 

12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 


9,1 ,0 




TP. . 


FJ,£LP,,pi,GIX. 










0,2,0 




Tpn 


F.iI.LJ>.j3 










0,3,0 






SXAM,'>,RAX.E,1 ilMAMI. MJM. .1. J A. .S.T,O.R£. , . 










0,4,0 






SJA.Rf,^,3^,2S)j.MAy,£: A.3S.Z.5. TP. .SXA.R.E. , , , . 










0,5 ,0 






*-dd.iAl,iJA,iC.Hfi.E, ,PMy, AA .CAP.E. XA. NA.P, 










0,< ,0 




tAs, 


ft,,fi,,,,,CA/^y£.RX, f.L.0. A XA. .N.U.M.£..R. .CAA.I.N.G. . 










0,7,0 






C.7P.,.,.C.0m£.RX. f.Lfi. .D. XA. .A.Lf.H.A. A.OA.I N.G. . 



These statements cause the following instructions 
to be executed: 

Line 010 — A numerical digit at the location called 
DIGIT is moved to the location called 

FIELD. 

020 — A digit 3 is moved to the location called 

FIELD. 

030 — Rate 1 is moved to the field called 

STORE. 

040 — A constant 3525 is moved to the loca- 
tion called STORE. 

050 — A constant 41 is moved to the Oo and Oi 
positions of the preceding instruction in 
the object program. 

060 — Field A is moved to field B and con- 
verted from alphameric coding (2 digits 
per character) to numerical coding (1 
digit per character). 

070 — Field D is moved to field C and con- 
verted from numerical coding to alpha- 
meric coding. 

Branch 

Branch operations are used to alter the normal se- 
quence of instruction execution. They may be con- 
ditional or unconditional. Table 18 in the Appendix 
lists the branch mnemonics and their P and Q address 
functions. Also listed in this table are the two com- 
pare mnemonics. Compare operations, though arith- 
metic in nature, perform a distinctly logical function. 

Some examples of branch and compare statements 
written in symbolic language follow: 



Line 
3 5 


Lobel 
6 n 


Operation 
12 15 


Operands & Remarks 

16 30 » 30 35 40 45 50 


B.'.o 




c. , , 


8.t.A.i.t.C.0,M,PA,RE. .F.I.E.L.D. A. .W.IXH. .F.I.E.L.P. B. . . 










0,2,0 




B, , , 


S.TAR.T.,.y,BR.A.I\I.C.H. X.O .LA.S.E.I. SX.A.R.T. 










0,3,0 




SX 1 


5XA,RX,}.1.00i.tXF. .S.WJ. .O.N.I. .B.R. XA. .SXA.RT. , , 










0,4,0 






S.TA.R.T, .t.t.S.AME .A.S. .L.I.H.E. .0.3.0. 










0,5 ,0 




Bfi.CJ 


S.rA^.r,+.3.*.1.2.) t.f 










0 i6 ,0 




BA , 





These statements cause the following operations to 
be performed in the object program. 

Line 010 — Compare field A with field B. 

020 — Branch to an instruction labeled 

START. 
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030 — If Program Switch 1 is on, branch 
to the instruction labeled start. 

040 — Same as line 030 with the exception 
that the unique mnemonic operation 
code used does not require a Q 
address. 

050 — If Program Switch 1 is not on, branch 
to the third instruction following the 
one labeled start. 

060 — Branch unconditionally to an in- 
struction whose address is saved in 
IR-2 or PR-1. 

Input/Output and Control 

Input/Output operations enable the transfer of data 
between core storage and various I/O units; control 
operations do not affect data, but rather pertain to 
electro-mechanical operations of I/O units. Table 19 
in the Appendix lists the input/output and control 
mnemonics and their P and Q functions. 

Some examples of input/output and control state- 
ments written in symbolic language follow: 



Line 
3 i 


label 


Operation 
H 15 


Operands & Remarks 

l« 20 IS 30 3S 40 4S » 


0.1 .0 




t^A, , 


0.0.T.P.Ur.)J.OQ 
















0,a.rj>.t/.T.,.i ,S.A/f.£. AS. .L.IIi.E. .0.10. 










» JL.» 






).l.OJ.,.rSAM,£. AS. .UM.e MO. , . 








1 , , I . 1 . . • . . 11 


0,4 .0 






1 1 » ■ » ' ' ' 1 t : 1 i ! » 



These statements cause the following operations to 
be performed in the object program: 
Line 010 — Type out alphameric data from a stor- 
age location called output. 
020 — Same as line 010; however, a unique 

mnemonic is used. 
030 — Single space on the typewriter. 
040 — Same as line 030; however, a unique 
mnemonic is used. 

Miscellaneous 

Miscellaneous operations are those that do not fall 
into any of the operations described previously. Table 
20 in the Appendix lists the miscellaneous mnemonics 
and their P and Q functions. 



Some examples of miscellaneous statements written 
in symbolic language follow: 



Line 
3 5 


Label 
i II 


Dpefofion 

12 15 


Operands & Remarb 

U 30 25 30 3S 40 45 so 


0.1.0 




CF 


OUTPUT -5; 










0,?,0 






3,3,^,2,,.2,e,9¥^,., 


1 1 


1 1 1 1 1 






Oi3i0 




H . . 


>.>.i.H.MJ. .1 










0.4,0 









These statements cause four diflFerent operations to 
be performed in the object program as follows: 
Line 010 — Clear a flag at the storage location, 
output minus 5. 
020 — Move a flag from storage location 2694 

to storage location 3352. 
030 — Cause the program to halt. 
040 — Perform no operation but proceed to 
the next sequential instruction. 

Processor Control Operations 

The sps language includes the following five control 
operations: 

DORG Define Origin 

DEND Define End 

HEAD Heading 

TCD Transfer Control and Load 

TRA Transfer to Return Address 

These operation codes are orders to the processor 
that give the programmer control over portions of the 
assembly process. Specifically, dorg gives the pro- 
grammer control over the placement of his program 
in storage, dend, tcd, and tra order the processor to 
produce unconditional branches to locations specified 
by the programmer, head assigns unique characters 
to labels or symbols used within a source program. 

With the exception of tra and dorg, none of the 
preceding operations may be labeled. 

DORG — Define ORIGIn 

The dorg statement instructs the processor to over- 
ride its automatic assignment of storage and to begin 
the assignment of succeeding entries at the particular 
location specified by the programmer. In this way, 
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the programmer is able to control assignment of stor- 
age to instructions, constants, and data. 

A define origin statement is coded as follows: 



Line 
3 5 


Lobe! 


Operation 

12 IS 


Operands & Remarks 

16 20 25 30 35 40 45 50 


li'.i<> 






7.8.20. 



DEND — Define END 

The DEND statement is the last statement entered in 
the source program; it informs the processor that all 
statements of the source program have been process- 
ed. The DEND statement requires the presence of an 
operand representing the starting address of the pro- 
gram. The operand may be actual or symbolic. 

The following statement illustrates a dend statement. 



This statement directs the processor to reset its loca- 
tion assignment counter to the particular address spe- 
cified in the operand (actual or symbolic). This 
causes the assignment of succeeding entries to begin 
at this address. When an actual address is entered by 
the programmer, care must be taken to avoid inad- 
vertent overlapping of areas assigned by the proc- 
essor. 

If the operand is left blank, assignment of storage 
starts with an address of 00000. Since the Monitor II 
System occupies locations 00000 through 02401, con- 
stants and instructions at object time cannot occupy 
these storage locations. 

If a symbolic address is entered, it must appear as 
a label earlier in the program sequence. An * address 
refers to the current contents of the location assign- 
ment counter. A define origin statement can take any 
of the following individual forms: 



line 
3 5 


Label 
« II 


Operation 
12 IS 


Operands & Remarks 

U » 2S 30 3S 40 4S . SO 


0,1 .0 






ST.A.R.r. 



3 5 


Label 


OperoHon 


Operands & Remarks 

1« 20 25 30 35 40 45 so 


Bii ,9 






xyz 










o.j.o 






X.Ki^+AO, , , 










0i3,0 






*+S,0.,.L.O.CA.TJ .O.N. AS.S./.GM .C.O.U.N,T.E.ItA.S.O. , , , . 



If XYZ (label) is previously defined as 7002, the 
first entry directs the processor to begin the assign- 
ment of succeeding entries at location 7002. The sec- 
ond entry directs the processor to begin the assign- 
ment of succeeding entries at the location that has 
been assigned to the symbol xyz plus 50. The symbol 
origin can be used at any point in the program to 
refer to that address. The third entry directs the proc- 
essor to begin the assignment of succeeding entries 
at the address specified by the current contents of the 
location assignment counter plus 50. A comma must 
follow the operand when remarks are included in the 
dorg statement. 



HEAD HEADing 

It is frequently convenient, and sometimes necessary, 
to write a source program piecemeal and to assemble 
these pieces into the total program. Parts of the pro- 
gram may be written by diflFerent programmers, or by 
the same programmer at diflFerent times with consid- 
erable time lapses between. 

Suppose, in such a situation, that a program block, 
say Bi, has been written; that another program block, 
B2, is in the course of being written; and that Bi and 
B2 eventually are to be joined to compose a single 
program. Certain symbols may already have been 
used to write block Bi, and certain symbols, varying 
from the symbols used in Bi, may be used to write 
block B2. To avoid duplication of symbols in each 
block, the programmer writing block B2 must be con- 
cerned with the symbols used in Bi. 

Symbols used in block B2 can duplicate those in 
Bi, provided they are less than six characters in length 
and have been prefaced by a head statement. The 
programmer can completely ignore the symbols in Bi 
by prefacing B2 with, the following control statement: 



Line 
3 5 


Lobel 


Operotion 


14 


K 3S 3 


Operands & Remarks 

0 3S 10 4S SO 


g.i ,f 






X 



where the single character X may be any one of the 
characters A to Z, 0 to 9, or blank. 

The control statement, head x, generates no in- 
structions or data in the object program. When the 
processor encounters a head statement, it treats the 
symbols in the label or operands fields of the follow- 
ing statements, provided the symbols are less than six 
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characters in length, as though they were headed by 
the character X. The processor continues to do this 
until it encounters another head statement. 

Thus, the symbols used in block Bi which contain 
less than six characters cannot possibly conflict with 
the symbols used in block B2. Six-character symbols 
are not afifected, that is, a 6-character label, common, 
following the control statement head 9 is not treated 
as 9 COMMON, for it would be a 7-character symbol, 
and only a maximum of six characters can be handled 
by the symbol table. 

A symbol is said to be "unheaded" if, and only if, 
its representation uses exactly six characters. The sym- 
bol COMMON, for example, is unheaded. The symbol 
ALPHA whose length is less than six characters is con- 
sidered to be headed, whether under a head control 
statement or not. If alpha is under control of head x, 
then alpha is said to be "headed by x." If alpha is 
not under control of any head statement, then alpha 
is said to be "headed by blank." 

A symbol, alpha, headed by the character x, is not 
identical to the symbol xalpha. The heading char- 
acter is essentially on a different level from the char- 
acters which make up the symbol. However, alpha 
headed by a blank should be regarded as identical to 
the symbol alpha used without a heading statement. 

If a head statement with a nonblank character does 
not occur in the entire source program, all considera- 
tions of heading can be ignored. This is the reason 
for not introducing the concept of headed symbols 
earlier. 

A head statement with a blank character must be 
used if the programmer" desires to modify the heading 
process in the example. Note that the statement head 
and the statement head 0 are quite different. For ex- 
ample, if blocks Bi and B2 are to be joined in one pro- 
gram, and B2 must be nested somewhere in the middle 
of Bi, as follows: 



Operation 



HEAD 



HEAD 



Operands 

"first part of block Bi 



block B2 



second part of block B] 



implied previously, however, such a head instruction 
is superfluous, since the symbols in the first part of 
block Bi are automatically headed by blank, being 
under the control of no head instruction at all. 

Often it is inconvenient to refer to a symbol that is 
defined in another headed region because of the 
requirement that the symbol be six characters in 
length. To facilitate cross referencing between headed 
blocks, the following convention can be used: 

Suppose that a symbol, say sum, under head 1, has 
been defined by some instruction. Suppose further 
that this symbol is to be referred to in an instruction 
under the control of the instruction head 2. Then the 
desired reference can be made by writing 1$sum as it 
appears in the following instruction. 



Line 


Label 


Operation 








Operands & Remarl<s 


1 s 


6 II 


12 )S 




30 


3S 


40 45 so 


0,1 ,0 




A. . . 


r,o.rAi:>.i.$.svM 



In general, if the two characters "C$," where C is 
any allowable heading character, are placed in front 

of the headed reference symbol sum, then the result 
is sum headed by C. To specify sum headed by 
blank, one simply writes $sum, with no character 
preceding the $ character. 

If the processor finds an operand containing a 6- 
character symbol plus a head character, such as 
9COMMON, the processor will produce an error mess- 
age indicating that the symbolic address contains 
more than six characters. 

If a label is used in a head statement, it is ignored, 

TCD — Transfer Control and loaD 

The TCD statement may be used to cause the loader 
to execute an unconditional branch instruction. When 
this statement is encountered during the loading of 
the object (machine language) program, it causes the 
loader to break the normal loading process and to 
branch to the location (addr) specified in the operand. 



Line 


Label 


Operotion 








Operands & Remorks 


3 S 


6 II 


12 >i 


\i 30 


35 3 


0 35 


iO 45 X> 


0.1 .0 






A.D.D.R 



The entire program might have been prefaced by 
a head statement with a blank character operand. As 



ADDR may be actual or symbolic. 

This statement allows programs which are too large 
to fit into core storage to be loaded and executed 
piecemeal, by terminating each piece with a tra 
statement. In effect, a tcd instruction can be used in 
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conjunction with a dorg statement to execute portions 
of the program that have already been loaded into 
storage and to overlap these with other instructions. 

During assembly, the tcd instruction does not affect 
the location assignment counter or alter the symbol 
table. 

TRA — Transfer to Return Address 

The TRA statement causes the normal loading se- 
quence of an object program to be resumed once it 
has been broken by a tcd statement. 

This processor control operation increments the 
location assignment counter by 42. The last statement 
of that part of a source program that is executed, when 
loading is interrupted by a tcd statement, must be a 
TRA statement. When the tra instruction equivalences 
are encountered in the object program, the normal 
loading process is resumed. The tra statement, which 
takes the following form, uses no operands. 



Line 


Label 


Operation 


Operandi & Remarks 








U 30 25 30 35 40 45 so 






r,/f,A, 





The following example illustrates the use of the 
TCD and tra mnemonics. 



Line 
3 5 


Label 


Operation 
12 IS 


Operands & Remorfcs 

IS 10 25 30 35 40 « SO 


0. 1 .0 


SJ.A.RX 


(firtt 


itxslruction) 


0, J.O 








Pi3.» 






' ' 1 ' ' ' 1 ' ' ' 1 ■ ' 1 ' ' 1 1 1 1 1 1 1 1 1 1 1 


0 1 4 lO 






1*1 i' 1 1 1 1 'i 1 1 1 .1. 1 1 1 1 1 J- J.. 1 1 1 1 1 1 1 1 1 1 i-i 1 1 


0,5,0 






>'i 1*' ' 1 1*' ' ■ ■ 1 ■ 1 ' 1 ' ■ .Ill 


lli.i 




T.R.A, 




0,7,0 




T,Cp, 


s,T,A,nx. 


0,6,0 




D,0,F,G 


ST,A,nj. 


O,»,0 






ni,n0 J^tftyciiof)*) 


1,0,0 








1 . 1 .0 






I*L 1*1 1 t 1*1 1 1 l_l 1 l—l 1 1 1 1 — 1 l_J 1 1 1 1 L_J 1 l_l U-L 


1,2.0 









The TCD statement causes a branch to the location 
assigned to the symbol start, followed by the execu- 
tion of instructions from start through the tra state- 
ment. The TRA statement causes a branch to the load 
program, which resumes loading the remainder of the 
object program beginning with the location labeled 

START. 



7770 Producf-Area Macro-Operations 

Two mnemonics, save and rstr, are provided to allow 
1710 interrupt programs to make use of the product 
area (locations 00080 through 00099) during their 



operation, even though that area was being used by 
the main program when the interrupt occurred. The 
save mnemonic generates in-line instructions which 
store the contents of the product area in a specified 
location before the interrupt routine is entered. The 
interrupt routine may then use the area but must re- 
store the original contents (rstr) before returning 
control to the main program. The P and Q operands 
of these statements may be actual or symbolic and 
may be arithmetically adjusted. 

SAVE 

EXAMPLE 

XFER SAVE A, B 

where xfer is the address of the first instruction gen- 
erated by the use of the save mnemonic. 

A is the symbolic address of the leftmost position 
in the temporary storage area. This area can be re- 
served with a Dss statement. The length of the area 
must be N + 1 digits where N is the number of digits 
in the product area to be saved. 

If LOCA is the label of the first digit of a 26 -digit 
area in core storage, the statement: 

AlO SAVE LOCA, 75 

will cause the contents of the product area from ad- 
dress 00075 to 00099 to be stored in the first 25 loca- 
tions reserved at loca. A record mark will be placed 
in the 26th location. 

If LOCA is the label of the first digit of a 21-digit area 
in core storage, the statement: 

AlOO SAVE LOCB 

will store the contents of the product area from ad- 
dress 00080 through 00099 and a record mark in the 
21 locations reserved at locb. The save mnemonic 
generates the following instructions: 

TDM 00100,0 

DC 1,(5),* 

TR LOCB, 00080 

TDM pOlOO, 0 

RSTR 

example 

XFER RSTR A, B 

where xfer is the address of the first instruction in the 
RSTR subroutine. A represents the location in the prod- 
uct area into which the leftmost digit of the tempor- 
arily stored information is placed. This address should 
always be less than 99. If it is left blank, the product 
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area between 00080 and 00099 will be filled in with 
the stored data. 

B represents the address of the leftmost digit in the 
record of information to be returned to the product 
area. 

If LOCA is the label of the first digit of an area 
where locations 75-99 have been stored by a save 
instruction, the statement: 

RSTR 75, LOCA 

will cause the product area from addresses 00075 
through 00099 to be restored with the information in 
the first 25 locations reserved at loca. 

If LOCA is the label of the first digit of an area where 
locations 80-99 have been stored by a save instruc- 
tion, the statement: 

RSTR , LOCB 

will return the information which was stored in the 
21 locations reserved at locb to product area address- 
es 00080 through 00099. 

The RSTR mnemonic generates the following instruc- 
tions: 

TR 00080, LOCB 

TDM 00100, 0 

Since each of these two mnemonics generate in-line 
instructions, care should be taken when using address 
adjustment in the same areas where these mnemonics 
are used. 



1620 Subroutines 



A program or routine consists of a set of coded in- 
structions arranged in logical sequence; it is used to 
direct the 1620, 1710, or any ibm data processing sys- 
tem to perform a desired operation or series of oper- 
ations. Generally, programs contain one or more short 
sequences of instructions that are parts or subsets of 
the entire program, and that are used to solve a par- 
ticular part of a problem. These parts of the program 
or routine are called subroutines. 

Usually, a subroutine performs a specific function, 
is common to a number of programs, and may be 
executed several times during the course of the pro- 



gram of which it is a part (main program). For ex- 
ample, a subroutine that extracts the square root of 
a number may be required during the execution of a 
pipe stress analysis program. The same subroutine 
may be used to extract a square root in a bridge and 
truss design program. 



Classification of Subroutines 

An efficient programming procedure is obviously one 
in which all necessary subroutines are coded only 
once, are retained on file, and are incorporated into a 
program whenever the operation performed by the 
subroutine is required, ibm Programming Systems has 
developed, for the sps ii-d Symbolic Programming 
System, a group of subroutines that are more fre- 
quently required because of their general applicabil- 
ity. Seventeen subroutines are available; they fall into 
three general categories: arithmetic, data transmission, 
and functional. 

Arithmetic subroutines 
Floating-Point Add 
Floating-Point Subtract 
Floating-Point Multiply 
Floating-Point Divide 
Fixed-Point Divide 

Data Transmission subroutines 
Floating Shift Right 
Floating Shift Left 
Transmit Floating 
Branch and Transmit Floating 

Functional subroutines 

Floating-Point Square Root 
Floating-Point Sine 
Floating-Point Cosine 
Floating-Point Arctangent 
Floating-Point Exponential (natural) 
Floating-Point Exponential ( base 10 ) 
Floating-Point Logarithm (natural) 
Floating-Point Logarithm ( base 10 ) 

The methods used by the functional floating-point 
subroutines to evaluate the functions of arguments 
are shown in Table 3. 

The subroutines are written in machine language 
and are provided in card or paper tape form for 
floating-point numbers with either a fixed-length or 
variable-length mantissa. The terms "variable length" 
and "fixed length," as applied to subroutines in this 
manual, refers to the number of digits (L) in the 
mantissa, not to the length of the subroutine itself. 
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Table 3 . SPS Subroutine Method of Evaluating Arguments 





METHOD 


<;i IRROI ITI MF 

D UDl\W VJ 1 1 INC 


FIXED LENGTH 


VARIABLE LENGTH 


Square Root 


Odd integer 


Odd integer 


Sine and 
Cosine 


Based on Hastings' 
approx imation* 


Series approximation 


Arctangent 


Truncated series 


Series approximation for 
arctangent 


Exponential 
(natural and 
bose 10) 


Hastings' approximation 
10^. 10^ is converted 
to e 


Series approximations of 
10^ and convert to e^ 


Logarithm 
(natural and 
base 10) 


Truncated series for 
In B. In B is converted 
to log 10^ 


Series approximation of 
In B and convert to log B 



Hastings, Cecil Jr., Approximations for Digital Computers, 
Princeton University Press, Princeton, New Jersey. The 
Rand Corporation, 1955. 



This causes the sps ii-d processor, during assembly, to 
generate linkage to the desired subroutine. In addi- 
tion, the processor arranges for the subroutine to be 
added to the object program at object time. 

The data and addresses required by the subroutine 
and supplied in the macro-instruction are incorporat- 
ed into the linkage instructions where they are made 
available for use. In this way, the subroutine obtains 
the information it requires to perform its given task 
and also to compute a return address to the main 
program. Control is returned to the main program 
at the completion of the subroutine by transferring to 
the return address (first instruction after the macro- 
instruction ) . The macro-instruction statement related 
to each subroutine is as follows: 

Arithmetic Subroutines 



3 5 


Lab«l 

i n 


Operation 
12 IS 




Operands & Remarks 
20 25 4S SO 


Si' ,? 




FA, 


A., 5, 


(Ftotiins Add) 


0,2.0 




fS, , 




( Flotims Svhirtci) 


0,3,0 




FM , 




. , , . ,( Floiti/ig Mvltifli) 


0i4,0 




F,D, , 


A., 5, 


(Floating Divid*) ,■ , 


0,5,0 




D.i.V, 




A,l.,fi.l. . (Divide) 



The three sets of subroutine card decks or paper 
tapes with their identifying set numbers follow. 

Subroutine Set Set Number 

Fixed-length subroutines 01 
Variable-length subroutines 02 
Variable-length subroutines for 03 
machines equipped with the Auto- 
matic Floating-Point feature 

A PICK subroutine is included at object time when 
any of the seventeen subroutines previously mention- 
ed have been called by the object program. This sub- 
routine performs the function of obtaining the data 
specified for a subroutine, storing the result produced 
by that subroutine, and furnishing a return address 
to the mainline program. 

In addition to the Library subroutines, the user 
may include up to twelve subroutines of his own. The 
method used to incorporate these routines into the 
proper subroutine set on disk is explained under 
ADDING SUBROUTINES. Subroutines appear with the ob- 
ject program only at execution time. 



Subroutine Macro-Instructions 

All linkages for the 1620 subroutines are generated au- 
tomatically through the use of certain macro-instruc- 
tions. The programmer places the macro-instruction, 
related to a particular subroutine, in the source pro- 
gram at the point where the subroutine is desired. 



Data Transmission Subroutines 



line 
3 s 


Label 

i 11 


Operation 
12 15 


\i » 


0,1 ,0 








0.2.0 




F.S.L,S 


a.,:b. . . 


0,3 ,0 




TF.L.S 




0 1 < ,0 




BilF,S 


A,,. 3, , . 



operands & RemoHcs 



(Floating Shift FC^ht) 
_^( Floating Shift Left) 



\>^, . . (Bnnch. »r,<t Transmit Flontinc^ i , , , ■ , 



Functional Subroutines 



0,5,0 



0,7,0 

o.».e 



FSQR 



f COS 



F.EX. 



FfXT 



FLN. 



Operands & Remarks 



A , B 



^ (Floating S^UcLre T^oot) 
A , B (Floating Sine) 
A^, B [Floating Cosiite) 

, S ^ {Floating Arctifieient) 
A,,;B, , , (Floating, Exponrniial, NBtufal ) . 
A, ^ , , (Floating Exponential, Base lO) 
A,,, 5, , , (Floating Logarithm, Nttunl) 
r.^O.&|A. ,,B "7^ {Flodtmi Logarithm, S*j« 10) 



In the arithmetic statements, the B operands repre- 
sent the addresses of quantities to be added, subtract- 
ed, etc. For the fixed-point divide routine, two addi- 
tional operands, Al and Bl are required. These oper- 
ands, as well as the A and B operands for data trans- 
mission statements, are explained in greater detail 
under each macro-instruction as it is described. 

In the case of functional subroutine macro-instruc- 
tions, the B operand represents the address of the 
argument to be evaluated, while the A operand repre- 
sents the address where the result is placed in storage. 

When using a macro-instruction, the programmer 
must code the exact number of operands required for 
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that macro-instruction. Every macro-instruction used 
with subroutines supplied by ibm Library Services 
has at least two operands. Added subroutines may 
have macro-instructions with up to nine operands. 
Remarks and flag operands are not permitted in 
macro-instructions. Omitted operands require the in- 
sertion of commas as in imperative statements. 

All operands in macro-instructions may be symbolic 
or actual; all are subject to address adjustment. If an * 
is used as an operand, its address is that of the left- 
most position of the first linkage instruction. 

Many subroutines have been paired (i.e., add and 
subtract, sine and cosine, natural and base 10 ex- 
ponential, natural and base 10 logarithm) into single 
subroutines to conserve storage by sharing those pro- 
gram steps common to both. The individual subrou- 
tines within each pair are distinguished from each 
other solely by the point at which they are entered. 
The correct entry point is obtained through the use 
of the macro-instruction pertaining to the particular 
subroutine desired. 

All subroutines are identified by a 5-digit code. This 
code identifies the subroutine as follows: 



Table 4. SPS Subroutine Group and Identification Numbers 



[xxj |xxj m 



Set Number - 



Subroutine Number - 
Number of Entries - 



SUBROUTINE 



PICK 

DIV 

FA 

FS 

FM 

FD 

FSQR 

FCOS 

FSIN 

FATN 

FEXT 

FEX 

FLOG 

FLN 

FSRS 

FSLS 

TFLS 

BTFS 



IDENTIFICATION NUMBERS 



FIXED 

LENGTH 



Without 
Automatic 
Floating 
Point 



} 



01001 
01011 

01022 

01041 
01051 
01061 

01072 

01091 

01102 

01122 

01141 
01151 
01 161 
01171 



VARIABLE 

LENGTH 



Without 
Automatic 
Floating 
Point 



02001 
02011 

. 02024 

02061 
02072 
02091 
02102 

02122 

02141 

02151 
02161 
02171 



With 
Automatic 
Floating 
Point 



03001 
03011 

} 03024 

03061 

03072 
03091 
03102 



} 



03122 



y 03144 



Table 4 shows the pairing arrangements of the 
subroutines together with their respective identifica- 
tion numbers and their sequence in core when used by 
an object program. 

Note: The location of the pick routine is determined 
by the last address assigned by the bps processor dur- 
ing assembly. All other required subroutines will fol- 
low PICK (in core) in the sequence of Table 4. Sub- 
routines not required are omitted. 

The assigned address may be determined by in- 
serting a DOEG statement, with the desired address, 
immediately preceeding the dend statement. 

Linkage 

For each macro-instruction statement in a source pro- 
gram, two machine language linkage instructions, and 
a 5-digit address for each operand, are generated by 
the processor in the object program. These linkage 
instructions replace the macro-instruction, which 
never appears in the object program. A label written 
with a macro-instruction references the leftmost posi- 



tion of the first linkage instruction generated. If the 
programmer wishes to use this label in address ad- 
justment, he must remember that the location of the 
instruction following a macro-instruction is not 
LABEL + 12. 

The linkage instructions generated by the processor 
for a macro-instruction are equivalent to the follow- 



ing 


series 


of s 


ymbolic instructions: 




Line 
3 S 


label 


Operotion 


l« » 3S 30 3S 


Operands & Re(nar<s 
40 45 so 


tjl.O 




TF,N\ 


PC/f+,J 0 ,«,+, /.9 


0,2,0 




B7 , 






0 1 3 lO 




DSA 


A ,B _ , ^ 




0 1 ' lO 






^,>@ 



In this sequence of instructions, 

PCK is the address of a fixed work area that is used 
to contain the operands of the macro-instruction. 
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5UBR is a fixed location that contains the address of 

the desired subroutine. 
A, B . . . are the 5-digit addresses that are equivalent 

to the operands specified in the macro-instruction. 



Floating-Point Arithmetic 

Scientific and engineering computations frequently in- 
volve lengthy and complex calculations necessitating 
the manipulation of numbers that may vary widely in 
magnitude. To obtain a meaningful answer, prob- 
lems of this type usually require retention of as many 
significant digits as possible during calculation, and 
correct positioning of the decimal point at all times. 
When the computer is used for such problems, several 
factors must be considered, the most important of 
which is the location of the decimal point. 

In general, a computer does not recognize the pres- 
ence of a decimal point in any quantity during cal- 
culation. A product of 41454 results whether the fact- 
ors are 9.37 x 44.2, 93.7 x .442, or 937 x 4.42, etc. The 
programmer must be cognizant of the location of the 
decimal point during and after the calculation and 
arrange the program accordingly. In adding, the 
decimal points of all numbers must be lined up to 
obtain the correct sum. The programmer facilitates 
this arrangement by shifting the quantities as they 
are added. In the manipulation of numbers that vary 
greatly in magnitude, it is conceivable that the result- 
ing quantity could exceed allowable working limits. 

Processing numbers which are expressed in ordinary 
form, e.g., 427.93456, 0.0009762, 5382, -623.147, 
3.1415927, etc., can be accomplished on a computer 
only with extensive analysis to determine the size and 
range of intermediate and final results. The percent- 
age of time required for this analysis and subsequent 
number scaling is frequently much larger than the 
percentage of time required to perform the actual 
calculation. Moreover, number scaling requires com- 
plete and accurate information regarding the bounds 
on the magnitude of all numbers that come into the 
computation (input, intermediate, output). Since pre- 
diction of the size of all numbers in a given calcula- 
tion is not always possible, analysis and number scal- 
ing are sometimes impractical. 

To alleviate this programming problem, a system 
must be employed which provides information re- 
garding the magnitude of all numbers in the calcula- 
tion along with the quantities in the calculation. Thus, 
if all numbers are represented in some standard pre- 
determined format that instructs the computer in an 
orderly and simple fashion as to the location of the 
decimal point, and if this representation is acceptable 



to the routine that performs the calculation, then 
quantities that range from minute fractions having 
many decimal places to large whole numbers having 
many integer places can be handled. The arithmetic 
system most commonly used, in which all numbers are 
expressed in a format that has these characteristics, 
is called "floating-point arithmetic." 

The notation used in floating-point arithmetic is 
basically an adaptation of the scientific notation that 
is widely used today. In scientific work very large or 
very small numbers are expressed as a number, be- 
tween one and ten, times a power of ten. Thus, 

427.93456 is written as 4.2793456 x 10^ 

and 

0.0009762 is written as 9.762 x lO"* 

In the 1620 floating-point arithmetic system, the 
range of the fractional part of the number is modified 
to extend between .10000000 and .99999999, that is, 
the decimal point of all numbers is placed to the left 
of the high-order (leftmost) nonzero digit. Hence, all 
quantities may be thought of as a decimal fraction 
times a power of ten. For example, 

427.93456 becomes .42793456 x 10^ 

and 

0.0009762 becomes .97620000 x 10-3 

where the fraction is called the mantissa, and the 
power of ten, indicating the number of places the dec- 
imal point was shifted, is called the exponent. The 
use of floating-point numbers during processing, be- 
sides ofiFering advantages inherent in scientific nota- 
tion, eliminates the need for analyzing operations in 
order to determine the positioning of the decimal 
point in intermediate and final results, since the deci- 
mal point is always immediately to the left of the 
high-order, nonzero digit in the mantissa. 

Format 

In 1620 floating-point operations, a floating-point 
number is a field consisting of a variable-length or 
fixed-length mantissa and a 2-digit exponent. The ex- 
ponent is in the two low-order positions of the field, 
and the mantissa is in the remaining high-order posi- 
tions, as shown: 

M MEE 

For the subroutines, the variable-length mantissa 
may have a minimum of two digits and a maximum of 
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45 digits. Two operand fields that are added together 
must have mantissas of the same length. A flag over 
the high-order digit marks the extremity of the field. 
A fixed-length mantissa must have eight digits. 

The exponent is established on the premise that the 
mantissa is less than 1.0 and equal to or greater than 
0.1. The exponent always consists of two digits rang- 
ing between —99 and +99. A flag over the high-order 
(tens) digit defines the exponent. 

The high-order digit of the mantissa and the high- 
order digit of the exponent must contain flag bits to 
operate properly with floating-point subroutines. 

The mantissa and the exponent, if negative, must 
have an algebraic sign, represented by a flag, over the 
units position of the respective fields; if they are posi- 
tive, they are not flagged. A floating-point number 
with a negative mantissa and a negative exponent is 
represented as follows: 

M MEE 

Sign control of the results of all computations is 
maintained according to the standard rules of arith- 
metic operations. 

Normalizing 

In all floating-point numbers, the decimal point is 
assumed to be at the left of the high-order digit, 
which must be a nonzero digit. Such a number is 
referred to as normalized. When a number has one 
or more high-order zeros, it is considered to be un- 
normalized, unless the number itself is zero. An un- 
normalized number resulting from a floating-point 
subroutine computation is normalized automatically, 
but unnormalized terms are not recognized as such 
when entered as data. Therefore, it is necessary for 
all data to be entered in normalized form. Although 
unnormalized numbers will be processed, correct re- 
sults cannot be assured. For example, the number 
0682349405 should be entered as 6823494004, assum- 
ing the fixed-point number is 6823.494 and an 8-digit 
mantissa is required. 

The following examples demonstrate the conversion 
of numbers in ordinary form to 1620 floating-point 
notation for an 8-digit mantissa. 



Number 

123.45678 

.00765438 
-.12348693 
-.00000070 
.00000000 



Normalized 

.12345678 x 10^ 
.76543800 x 10-^ 
.12348693 x 10" 
.70000000 X 10-6 
.00000000 X io-«» 



1620 
Floating Point 

1234567803 
7654380002 
1234869300 
7000000006 
0000000099 



note: a zero mantissa is associated with a 99 expon- 
ent. With any other representation of zero, accuracy 
cannot be assured. 

The result of a floating-point operation is normaliz- 
ed automatically. For example, the result .00123456 
when normalized becomes 123456NN02, where N is 
an inserted digit (0 through 9) and 02 is the expon- 
ent. The value of the N digit (sometimes referred to 
as a noise digit) is determined by the programmer, 
who in most cases will choose to use zero. At object 
time the noise digit can be found at location 02401. 

Effects of Normalizing 

In normalizing, certain low-order digits in the man- 
tissa may lose significance. To recognize these digits, 
the floating-point arithmetic can be performed twice, 
using a different N digit for each run, e.g., zero for 
the first run and nine for the second run. The sig- 
nificance of these digits can be readily distinguished 
by comparing the two results. For example, if the 
programmer compares the following: 



Result, 1st run 
Result, 2nd run 



Mantissa 
.12345000 
.12345099 



Exponent 
""04 
04 



he will see that the two low-order positions of the 
mantissa have lost significance because they are sig- 
nificantly different. 

When intermediate floating-point results enter into 
additional floating-point calculations, inserted digits 
may become a part of the result of the additional 
calculation. 

In the case of lengthy computations using floating- 
point results, precision gradually decreases because 
of truncation. The magnitude of the truncation error 
depends on the individual computation process and 
cannot be predicted without a knowledge of the 
process in question. However, the truncation error in 
such cases is usually no greater than the degree of 
error present in a rounded amount. Results in floating- 
point subroutines are not rounded. The maximum 
truncation error for a Ibced-length mantissa will not 
exceed 10'^ or, for a variable-length mantissa, lO L, 
except under certain conditions described in the ex- 
planation of floating-point functional subroutines. 



Exponent Overflow and Underflow 

In the 1620 floating-point subroutines, numbers with 

a magnitude equal to or greater than 10^^ create a 
condition called exponent overflow; those with a mag- 
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nitude of less than 10'^^ create a condition called 
exponent underflow. 

If either of these conditions is generated as a result 
of an arithmetic operation, the resultant field is set to 
the most reasonable value under the circumstances, 
and operation is resumed (see Table 5). The pro- 
grammer is not given a visual indication when an 
error occurs; however, a core storage location (00401^ 
is set to reflect the type of error. The programmer can 
interrogate this location for the following digits: 

4= — no error 
1 — exponent overflow 
1 — exponent underflow 
0 — value cannot be calculated 
0 — loss of accuracy in fsin or fcos, or negative 
input argument to fsqr or fln 

Location 00401 is reset to the "no error condition" 
(=[=) by the pick subroutine; therefore if it is to be 
interrogated, the interrogation must be done before a 
new subroutine is entered. 

When the digit in location 00401 indicates that an 
error has occurred, the user will most likely initiate 



some corrective action. The information that follows 
should be of some assistance if this situation arises. 



Symbolic Addresses 



Description of Data 



PCK + 10 Return address of mainline pro- 
gram 

PCK + 15 Address of A operand data (re- 
sult) 

PCK + 20 Address of B operand data 
PCK -f 33 Mantissa length in use 
PCK + 36 Noise digit in use 

Note: pck = 02365, a fixed location in core storage at 
object time. 

Overflow and/or underflow conditions can arise in 
only six of the floating point subroutines presented in 
this manual, namely, the four arithmetic subroutines 
and the two exponential functional subroutines. 

Arithmetic Indicators 

During the execution of arithmetic subroutines, the 
overflow, high/positive, and equal/zero indicators are 



Table 5. SPS Subroutine Errors 



DESCRIPTION OF ERROR 


CONTENTS 
OF 00401 


RESULTANT FIELD 


FA or FS, exponent overflow 




99. . 


.999 


FA or FS, exponent underflow 




00. . 


.099 


FM, exponent overflow 




99. . 


.999 


FM, exponent underflow 




00. . 


.099 


FD, exponent overflow 




99. . 


.999 


FD, exponent underflow 




00. . 


.099 


FD, attempt to divide by zero 


0 


If 0 77 : 

mantissa of dividend unchanged, 
exponent of dividend = E + 99. 
If 0/0" : 

mantissa of dividend unchanged, 
exponent of dividend - -99 


FSQR, input argument is negative 


0 


Vix 


1 


FSIN or FCOS, input argument has 
exponent value greater than the 
mantissa length 


0 


00. . 


.099 


FSIN or FCOS, input argument has 
exponent value (X) such that 03 — X— L, 
where L is the mantissa length 


0 


SIN (X) or COS (X) 


FEX or FEXT, exponent overflow 


T 


99. . 


.999 


FEX or FEXT, exponent underflow 


1 


00. . 


.099 


FLN or FLOG, attempt to take log 
of zero 


5 


99. . 


.999 


FLN or FLOG, input argument is 
negative 


0 


LN ( 


x| )or LOG ( |x| ) 
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used. The overflow indicator is always reset at the 
beginning of each arithmetic subroutine. If it is desir- 
ed to determine its status prior to the execution of an 
arithmetic subroutine, the indicator must be tested 
and its condition stored before the hnkage instruc- 
tions are executed. The high/positive and equal/zero 
indicators are set according to the mantissa of the 

result. Whenever a zero mantissa results (0 099), 

the equal/zero indicator is turned on. 

At the conclusion of a functional subroutine, the 
status of the high/positive, equal/zero, and overflow 
indicators does not necessarily reflect the result of the 
operation, because the indicators are disturbed during 
the execution of a functional subroutine. Therefore, 
their status at the conclusion of a functional sub- 
routine should not be assumed to be the same as it 
was prior to the execution of the subroutine. 



Oescription of 1620 Subroutines 

In this section the various subroutines are described 
together with examples of how the associated macro- 
instructions are written. For average execution times 
of all subroutine macros, refer to Table 23 in the 
Appendix. 



PICK 

This subroutine is common to all fixed-length and 
variable-length subroutines. The pick subroutine, dur- 
ing execution of the object program: 

1. Sets up A and B operands to be operated upon, 

calculates the return address to the mainline pro- 
gram, and then returns to the user's subroutine. 

2. Resets location 00401 to "no error condition" 
(=#). 

3. Stores the calculated result in the proper storage 
area and branches back to the mainline program. 
This function is used as required by the indi- 
vidual subroutine. 

4. Provides constants and working storage for the 
other subroutines. 

The average execution time for the pick subroutine 
can be determined by the formula: 

Average time (in fisec) = 15 L + 695 

where L =: the length of the mantissa. The numbers 
are expressed in microseconds. Therefore, an 8-digit 



mantissa (same as fixed-length mantissa) requires 
815 fjLsec. 

15 X 8 = 120 
695 

815 fjLsec 

or less than 1 millisecond. 

Note: For the variable length subroutines used with 
the Automatic Floating-Point feature: 

Average time (in fisec) = 15 L + 695 

Floating Add 

Macro-instruction 
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CJparatm 










Operands & Remarks 
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^..M 



The A and B addresses refer to the units position of 
the exponent of the fields: 

MMMMMMMMEE 

t 

a,ddress of field 

where the E's represent digits of the exponent and 
the M's represent digits of the mantissa. 

Operation. Field B is added to field A. The floating- 
point sum replaces field A; field B remains unchanged. 

Floating Subtract 

Macro-instruction 



Line 
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Operariw 










Operands & Remaria 
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The A and B addresses refer to the units position of 
the exponent of the fields. 

Operation. Field B is subtracted from field A. The 
floating-point difference replaces field A; field B re- 
mains unchanged. 
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Floating Multiply 

Macro-instruction 



3 S 


i n 


Operation 






35 


Operands & Remarkt 

40 45 so 






FM , 





The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. Field A is multiplied by field B. The 
floating-point product replaces field A; field B re- 
mains unchanged. 

Floating Divide 

M aero -instruction 



Line 
3 5 


Label 


Opefotion 
13 IS 


14 » n 


Operands & Remarks 

M) 35 40 45 SO 


0.1.0 




Ffi. . 
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Operation. Field A is divided by field B. The float- 
ing-point quotient replaces field A; field B remains 
unchanged. 

Fixed-Point Divide 

Macro-instruction 



Line 


Label 


Dporation 






Operandi t, R<marki 
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In addition to the A and B operands, which represent 
the addresses of the dividend and divisor, the divide 
macro-instruction requires two additional operands; 
one specifies the number of zeros to be inserted to the 
right of the dividend (Al operand) and the other, 
the shift factor needed by the subroutine (Bl oper- 
and). Specifically, 

A operand is core storage address of dividend. 
B operand is core storage address of divisor. 

Al operand is 00099 minus the number of zeros de- 
sired to the right of the units position of the 
dividend. 

Bl operand is 00100 minus the length of the quo- 
tient. The quotient must be at least two digits 
in length. 



Note: The quotient address after the division is ex- 
ecuted will be equal to 00099 minus the length of the 
divisor. 

Prior to the divide operation, the divide subroutine 
always resets to zeros (clears) positions 00080 
through 00099, the product area where the 20-digit 
quotient and remainder are developed. For variable- 
length mantissa subroutines, the divide subroutine 
clears core storage positions 00001-00099 to zeros. 
When the quotient plus the remainder exceeds the 
number of positions cleared to zeros, positions lower 
than the last position cleared must be reset to zeros 
by programming. One additional position should also 
be cleared to allow for a possible overdraw. For ex- 
ample, if 25 positions are required for the quotient 
and remainder in a fixed-length mantissa subroutine, 
00074-00079 should be reset to zeros before the divide 
macro-instruction is given. 

The fixed-point divide macro-instruction may be 
used with any of the subroutine sets. Whenever it is 
used, the fixed-point divide subroutine will be incor- 
porated into the object program at object time. The 
fixed-point divide subroutine uses automatic divide 
in performing its operation. Coding of the macro- 
instruction is the same for all of the subroutine sets. 

Operation. The area to be cleared is automatic- 
ally reset to zeros. The dividend (A address) is trans- 
mitted to the product area (Al address), beginning 
at the low-order dividend digit and terminating at 
the flag bit marking the high-order position of the 
dividend field. The Al address is 00099 minus the 
number of zero positions desired to the right of the 
dividend. 

The algebraic sign of the dividend is automatically 
placed in location 00099, regardless of where the 
rightmost dividend digit is placed by the Al address. 
A flag hit automatically marks the high-order digit 
of the dividend. 

The divisor (B address) is successively subtracted 
from the dividend. The Bl address of the divide macro- 
instruction positions the divisor for the first subtrac- 
tion from the high-order position(s) of the dividend, 
as in manual division. The Bl address is determined 
by subtracting the number of digits in the quotient 
from 100. 

The quotient and remainder replace the dividend 
in the produc; area. The address of the quotient is 
00099 minus the length of the divisor. The algebraic 
sign of the quotient (determined by the signs of the 
dividend and divisor) is automatically placed in the 
low-order position of the quotient. The address of the 
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remainder is 00099; a flag bit is automatically placed 
in the high-order position of the remainder. The re- 
mainder has the sign of the dividend and the same 
number of digits as the divisor. 

The high/positive indicator is on if the quotient is 
positive and not zero; the equal/zero indicator is on 
if the quotient is zero. Neither indicator is on if the 
quotient is negative. 

The quotient must be at least two digits in length. 
This is the minimum field length that the 1620 will 
accept. 



in eflFect, restricts the size of the dividend to 
10,020 digits if only 20,000 positions of core stor- 
age are installed. 

Floating Shift Right 

Macro-instruction 



1 s 


label 

< M 


Operation 
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Operands & Remarks 
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EXAMPLES 

1. The macro-instruction 

DIV A, B, 99, 96 

will perform the division for 0273 ) 3972 and 
store the result 0014 in storage locations 00092 
through 00095. 

2. The macro-instruction 

DIV A, B, 96, 93 

will perform the division for 0273 ) 3972.000 and 
store the result 0014.549 in storage locations 
00089 through 00095. 

Note: In examples 1 and 2, A represents the address 
of the dividend 3972, and B represents the address of 
the divisor 0273. 

Incorrect Positioning of Divisor. The following 
error conditions are caused by an incorrect Bl 
address. 

1. An incorrectly positioned divisor can cause more 
than nine successful subtractions and an incor- 
rect quotient. The divide operation is terminated, 
the Overflow indicator and Overflow Arithmetic 
Check light are turned on, but processing will 
not stop unless the Overflow Check switch is 
set to STOP. A divide by zero (K/0) causes the 
same error conditions just described. 

2. The high-order digit of the dividend is assumed 
by the 1620 to be one position to the left of the 
high-order digit of the divisor. The high-order 
digits of the dividend are lost if the divisor is 
positioned too far to the right. Processing con- 
tinues with no indication of an incorrect quotient. 

3. If the B address is less than 10000, i.e., between 
00100 and 00999, the divide operations will ter- 
minate when a subtraction occurs at 0XX99. This, 



The effect of this macro-instruction is to shrink the 
mantissa by shifting it to the right and truncating the 
low-order digits. The A address is normally the units 
position of the mantissa. 

MMMMMMMMEE 

t 

■units position of mantissa 

The B address specifies the digit of the mantissa 
which will become the low-order digit of the mantissa. 

Operation. The field at the B address (the portion 
of the mantissa to be retained) is shifted right to the 
location specified by the A address. The exponent is 
not moved or altered. For example, the macro-instruc- 
tion 

FSRS 00097,00093 
causes the mantissa 

30590011325701 

t t 

Storage I I Storage 
Address Address 

00093 00097 
to be shifted, producing the following result 
0000305900li01 

t ! 

Storage I I Storage 
Address Address 

00093 00097 

Vacated high-order positions are set to zeros, an exist- 
ing flag at the A address is retained for algebraic sign, 
and the field flag bit is transmitted with the high- 
order digit of the B field. 
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Floating Shift Left 

Macro-instruction 



Line 
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Label 
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Operation 
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Operands & Remarks 
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FSLS 





The effect of this macro-instruction is to expand the 
mantissa by shifting it to the left and filling the vacat- 
ed positions with zeros. It is important to note that 
the B address is the low-order position of the field 
moved, and the A address is the high-order position 
of the resultant field. 

Operation. The field at the B address, which is the 
low-order digit of the mantissa, is shifted left so that 
the high-order digit is moved to the location specified 
by the A address. The exponent is not moved or alter- 
ed. For example, the macro-instruction: 

FSLS 00090,00097 

causes the mantissa 

00ll325701 

t t 

Storage Storage 
Address Address 

00090 00097 
to be shifted, producing the following result 

1132570001 

t t 

Storage Storage 
Address Address 

00090 00097 

An existing flag bit at the Q address is retained for 
algebraic sign; the field flag bit is transmitted with 
the high-order digit of the Q field. 

Transmit Floating 

Macro-instruction 



line 
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Operation 


Operands & Remarks 
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0.1 .0 




TFLS 







The B address refers to the low-order digit of the 
floating-point field exponent, whereas the A address 
refers to the low-order position to which the field is 
transmitted. 



Operation. The field at the B address is transmitted 
to the location specified by the A address. The B field 
remains unchanged in storage. Flag bits in the three 
low-order positions of the B field are also transmitted. 
Starting with the fourth low-order position, only one 
additional flag bit is transmitted, and it stops trans- 
mission. 

Branch and Transmit Floating 

Macro-instruction 



line 
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label 


Operotion 
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Operonds & Remarks 
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The B address is normally the low-order position of 
the floating-point field exponent, whereas the A ad- 
dress is the leftmost position of the next instruction to 
be executed. 

Operation. The address of the instruction following 
the macro-instruction is saved at a storage location 
in the btfs subroutine, and the field at the B address 
is transmitted to the A address minus one. The normal 
exit of a routine which is entered by a btfs is a Branch 
Back (bb) instruction. The instruction at the A ad- 
dress is the next one executed. The B field remains 
unchanged in core storage. Any flag bits in the three 
low-order positions of the B field are transmitted. 
Starting with the fourth low-order position, only one 
additional flag is transmitted, and it stops trans- 
mission. 

Floating Square Root 

Macro-instruction 



Line 


lob«l 


Operatiot 






Operands & Remarks 
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0.1.0 










The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The square root of argument B is ex- 
tracted and the result, in floating point form, is stored 
at A. The argument, which must be in floating-point 
form, is unchanged by the operation. 

The floating-point square root subroutine accepts all 
numbers within the floating-point range that are 
greater than or equal to zero. If the argument is less 
than zero, a 0 is placed in location 00401 and A is set 
equal to SQR |A|. 
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Floating Sine 

Macro-instruction 



Line 
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The A and B addresses refer to the units position ot 
the exponents of the fields. 

Operation. The sine of argument B is computed and 
the result, in floating-point form, is stored at A. The 
argument must be in radians and in floating-point 
form. The computation does not disturb the original 
value of the argument. 

The floating-point sine subroutine accepts all num- 
bers of floating-point range up to and including ex- 
ponent 08 (fixed length mantissa) or L (variable 
length mantissa). 

For arguments with exponents less than 03, the 
magnitude of the maximum truncation error in the 
mantissa of the result does not exceed lO L. Accuracy 
in the mantissa of the result decreases as the size of 
the argument (exponent of 03 or greater) increases. 
For error codes, see Table 5. 



Floating Cosine 

Macro-instruction 
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The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The cosine of argument B is computed 
and the result, in floating-point form, is stored at A. 
The argument must be in radians and in floating- 
point form. The computation does not disturb the 
original value of the argument. 

The allowable range of the argument, maximum 
accuracy, etc., for the cosine subroutine is the same 
as that previously described for the sine subroutine. 

Floating Arctangent 

Macro-instruction 



Line 
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The A and B addresses refer to the units position of 
the exponents of the fields. 



Operation. The floating-point value of the arctan- 
gent of B is computed and the result is stored at A. 
The argument must be in floating-point form; the re- 
sult in radians will also be in floating-point form. 

The arctangent subroutine accepts any number 
within the floating-point range. During the evalua- 
tion of the arctangent of B, use will be made of the 
divide subroutine. 

The maximum truncation error in the mantissa of 
the result is ±10"L, except for results having an ex- 
ponent less than or equal to 02 (E:^02). The maxi- 
mum error for these results is ±: 1 in the (L-|-l)th 
decimal place. L 08 for the fixed length mantissa. 

Floating Exponential (Natural) 

Macro-instruction 



line 
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Operation. The A and B addresses refer to the units 
position of the exponents of the fields. The value of 
the eB, where B is in floating-point form, is computed 
and the result, also in floating-point form, is stored 
at A. An input value that exceeds 

227.955924206n n(227955924206n n03) 

causes an exponent overflow, and one which is less 
than 

-227.955924206n n(227955924206n n03) 

causes an exponent underflow. Depending on the type 
of error, a 1 or 1 is placed in location 00401. 

For negative arguments, the subroutine uses the 
absolute value of the argument to evaluate the func- 
tion and then finds the reciprocal value. 

For positive and negative arguments, the maximum 
truncation error in the mantissa of the result is ±10"L. 

Floating Exponential (Base 10) 

Macro-instruction 
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The A and B addresses refer to the units position of 
the exponents of the fields. 
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Operation. The value of lOB is in floating-point 
form; it is computed and the result, also in floating- 
point form, is stored at A. An input value that exceeds 

98.9n. . .n(989n. . .n02) 

causes an exponent overflow, and one which is less 
than 

-98.9n . . . n(989n . . . n02) 
causes an exponent underflow. 

This subroutine handles negative arguments in the 
same manner as they are handled by the natural ex- 
ponential subroutine. Maximum accuracy is the same. 

Floating Logarithm (Natural) 

Macro-instruction 
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Adding Subroutines 

The user may add from one to twelve subroutine 
macros to subroutine sets 01, 02, and 03. Each new 
subroutine may use from two to nine operands. Al- 
though the minimum number of operands allowed is 
two, both the A and B operands may be the same. 
To add a subroutine, it is necessary to: 

1. Modify the Op Code table to include the new 
mnemonic (see sps n-D modification program). 

2. Write the subroutine in sps language, keeping in 
mind certain factors regarding pick, mantissa 
length (L), and modifications with regard to the 
subroutine itself. 

3. Assemble the subroutine in relocatable form, and 
store it on the disk. 

Modifying the Op Code Table 

The Op Code table is modified by executing the 
sps ii-d Modification Program. This program is part 
of the Monitor system; it is described later in the 
manual. 



The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The floating-point value of the In B is 
computed and stored at A. Input arguments must be 
in floating-point form. 

This subroutine accepts all arguments greater than 
zero within the floating-point range. For error codes, 
see Table 5. 

Floating Logarithm (Base 10) 

Macro-instruction 
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The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The floating-point value of the log lOB 
is computed and stored at A. Input arguments must 
be in floating-point form. 

This subroutine accepts all arguments greater than 
zero within the floating-point range. For error codes 
see Table 5. 



Writing a Subroutine 

When writing a subroutine, the programmer should 
be aware of certain information concerning pick, 
namely: the functions of pick, pck area, linkages, 
common work areas in pick, and the means of signi- 
fying operands that are relative to pick and/or are a 
function of mantissa length. 

FUNCTIONS OF PICK 

PICK is common to all subroutines in the subroutine 
set. Therefore, it is to the advantage of the subroutine 
writer to make use of pick. The listing of the appro- 
priate PICK subroutine (furnished with the Library 
package) should be studied. Briefly, pick performs 
the following operations: 

1. Resets location 00401 (subroutine error digit). 

2. Moves A and B operands into pck -j- 15 and 
PCK -f- 20, respectively. If more than two oper- 
ands are used, all should be handled by the 
users subroutine. 

3. Calculates the return address to the mainline 
program. However, if a subroutine uses more 
than two operands, the return address must be 
calculated by the subroutine itself. To calculate 
the return address, use the following formula: 

(PCK +10) + 5n + 1 if n is even, or 
(PCK +10) + 5n + 2 if nis odd 
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where pck + 10 (before entering the pick sub- 
routine) is the address of the high-order digit 
of the first operand, and n is the number of 
operands. 

If PICK calculates the return address (two oper- 
ands), eleven is added to pck + 10. 

4. Moves the B operand (mantissa and exponent) 
into working area beta. If the A operand is also 
used by the subroutine for calculation, it (the 
A operand) must be moved by the subroutine 
itself. This requires one instruction: 

TFL ALPHA, PICK + 15, 11 

5. Sets error indicator 00401 for overflow and 

underflow. 

6. Stores the computed floating-point result in the 
location specified by the A operand. 

The functions of pick are not mandatory, but are 
under control of the user. When a subroutine is call- 
ed, the object program branches directly to the sub- 
routine. If the functions of pick are desired, the user 
may branch to pick via the following linkage: 

TFM PCK -f 5, * + 20 
B7 PCK, , 6 

operands that are functions of pick 
OR mantissa length 

whenever pick is used, the programmer must use 
instructions in his subroutine which make reference to 
the pick subroutine. The operands of these instruc- 
tions are then adjusted to make them correspond to 
the actual addresses of pick in the object program. 
This is done by using a pseudo constant (dc state- 
ment). The constant does not become a part of the 
object program; its only function is to indicate that 
the instructions that follow are to be modified. 

One DC statement can modify up to 25 instructions. 
Each instruction, whether it is to be modified or not, 
requires two digits in the pseudo constant, one for 
the P operand and one for the Q operand. The state- 
ment itself consists of three operands: the first speci- 
fies the length of the constant which may not be 
greater than 50 nor less than 2; the second, the actual 
constant; the third, the storage address of the con- 
stant. This address must be specified as an absolute 
address of 00350. The P and Q operand modifier con- 
stants follow. 



P and Q Operand 



Modifiers Modification 

0 No Modification 

1 Add L 

2 Subtract L 

3 Add 2L 

4 Subtract 2L 

5 Modify with respect to pick, 
no L modification 

6 Modify with respect to pick, 
addL 

7 Modify with respect to pick, 
subtract L 

8 Modify with respect to pick, 
add 2L 

9 Modify with respect to pick, 
subtract 2L 



The following example shows how a variable- 
length mantissa subroutine may be modified by the 
use of modifier constants. 



DC 6, 527005, 350 

TF SAVE, 98 

SF SAVE 

TFL PCK + 15, SAVE, 6 

B7 PCK + 10, , 6 



Note: Intervening dorg statements and constants be- 
tween instructions are never modified in this manner. 

Assembling a Subroutine 

When a subroutine is assembled, it must be "Assem- 
bled Relocatable," stored in relocatable format, and 
must have the following items defined: 

1. Disk Identification Map (dim) entry 

2. Subroutine identification number 

3. Desired entry points 

subroutine dim entry 

A subroutine dim entry is in the same general format 
as that described in the Supervisor section of this 
manual. However, the last two 5-digit fields specify 
the length of the subroutine and the subroutine identi- 
fication number instead of a core address and a start- 
ing or entry address. 

Subroutine dim entries occupy fixed locations in 
the DIM table. There are 30 entries reserved for sub- 
routine sets 01, 02, and 03 (this includes an entry for 



78 



PICK in each set). The 30 entries are needed for the 
17 subroutines (plus pick) provided by ibm plus 12 
subroutines that may be added by the user. 

To calculate the dim entry number for a new sub- 
routine, add the new subroutine number (18-29) to 
the base dim number for the applicable subroutine 
set. The base numbers for each set are as follows: 

Base Number Subroutine Set 

100 Fixed Length - 01 

70 Variable Length - 02 

40 Automatic Floating Point - 03 

For example, the dim entry number for the first 
user-written subroutine to be added to the variable 
length set would be 70 + 18 = 88. 

A DIM entry number is assigned to a subroutine by 
including an "id number" control record when the 
subroutine is assembled ( see sps control records ) . 

SUBROUTINE LENGTH 

The length of a particular subroutine is automatically 
placed in its respective dim entry when an libr con- 
trol record (see sps control records) precedes the 
subroutine source program. 

SUBROUTINE IDENTIFICATION NUMBER 

As stated previously, all subroutines are identified by 
a 5-digit code number. When a subroutine is being 
added, this number must be supplied by the user. 
The number is composed of two digits for "subroutine 
set number" (01, 02, 03), two digits for "subrou- 
tine number" (01-29), and one digit for "number of 
entry points" ( 1-9 ) . The number will automatically be 
loaded to its proper position in the dim table if it is 
used as the address operand of the dend statement 
that terminates the subroutine source program. 



Example 



DEND 



02182 



This code number identifies subroutine number 18, 
a "2-entry point subroutine" that is to be placed in 
the variable-length subroutine set (02). 



SUBROUTINE ENTRY POINTS 

Each subroutine requires at least one entry point but 
may have as many as nine entry points. These must 

be specified at the beginning of the user's source 
program. Two records of data are needed: 

ORIGIN DSA ENTRYl, ENTRY2, etc. 
DORG ORIGIN-4 



In the preceding statements, origin is any label not 
otherwise used in the subroutine; entryI is the label 
of the first entry point; entry2 is the label of the sec- 
ond entry point. The dorg is needed to ensure that 
the subroutine will begin at relocatable 00000. 

SUMMARY of ASSEMBLY PROCEDURE 

By inserting a dsa for entry points and placing the 
subroutine identification number in the dend state- 
ment of the source program, it is possible through the 
use of proper control records to assemble a subroutine 
and have it loaded to disk and ready to use all in 
one operation. Of course, the mnemonic of the added 
subroutine must be defined in the Op code table prior 
to assembly of a program that uses it. 



Example 

This example illustrates how a subroutine is added to 
the subroutine library of the Monitor System. In 
this example, the new subroutine is assembled along 
with a mainline program and both are then executed 
(Figure 10). The example assumes that the Super- 
visor program is already in core storage. 



GIVEN: 



procedure: 



Macro - EXCH A, B 
Function— to exchange floating- 
point numbers between A 
and B 

Identity — Subroutine No. 18, 
Set No. 02 

1. Modify Op Code table by 

loading the following rec- 
ords; 

Monitor Control — xeq specifying spslib 
SPSLiB Control define op code 

EXCH - 181 (Col. 12-19) 

endlib 

Note: The above four records must be entered from 
the same input unit. 

2. Precede the source subroutine 

(Figure 11) in the stacked 
input with the following 
control records: 
Monitor Control — job 

SPS 

sps Control — assemble relocatable 

LIBR 

id number 0088 
store bploadable 

LIST card 

error stop 



SPS II-D 79 




SPS Control Records 



Monitor Control Records 



SPS LI B Control Records 



Monitor Control Records 



Figure 10, Stacked Input for "Adding SPS Subroutine Example" 



80 



Line 


Label 


Operation 








Operands & Remarks 






3 5 


6 11 


12 15 


16 20 


25 30 


35 


40 45 50 55 60 iS 


70 


75 


0.1.0 







F Nmv 

*-,'i','^r'l I t. 1. II lit Ill, 111... .11,1. 11... 


0,2,0 


* 


' ' ' 


Z),5,/Q, ,/.S, 


,r,o, .p.f"./^./ 


,/V.£. .SM.3.^.0.a.T./,A/,£, MXT,liy, P.OJM.T, 


1 1 ■ 1 




0,3 i0 






* - 4 


I 1 ' 1 1 1 1 1 1 1 1 1 






1 1 1 1 




0|4|0 






1 1 1 1 1 1 








III, 




0,5,0 




Do 

II 1 





* 236S 


1 1 J 1 1 


J)^EfJ^N,B^S, fiB^spLure^ .SXM.afl,L 






0 |6 ,0 


C kt T Ti \f 


T r M 




. 


1 I r r 1 


1 1 1 1 1 " 1 ' 1 1 ' 1 1 1 1 ' Ill 


1 1 I 1 




0 1 7 ,0 






, . 1 


1 I'l 1 1 1 1 1 1 1 1 


,»,6,», , 


^LjmAG.B, 7,0. A/.CX 


1 1 1 1 




0,8,0 


1 1 1 1 1 






1 I'./'i^AiA/.^i , , 




Moy,£, A 70, .3, 


..11 




0,»,0 


I 1 1 1 1 




^1 1 1 1 1 1 


♦ 05 

1 1 1 1 1 1 1 1 1 1 1 


.».3,5-,0,t 


PSf UVfi, ,C.O//,SfAA/.r. 


1 1 ■ 1 




1,0,0 


1 1 1 1 1 


^,>^,^, 




. .♦.s/r./? 




Aoy,£, A ,r.o. ./I 


1 1 1 1 




1,1.0 








1 1 ' ■ Ill 




jt,e,T,ufiA, 7.0. .L,/,M6, 


111. 




1,2,0 


1 1 1 1 1 


d£m 


OA J A J 


1 1* ' 1 1 1 


1 I 1 1 t 


./,D, ,F,0./?, ,S,U,BM, 







Figure 11. Source Program for "Adding SPS Subroutine Example' 



I/O Macro-Statements 



The I/O macro-statements are provided to relieve 
the programmer of the task of writing his own I/O 
subroutine in a source program each time he wants to 
read or punch cards or tape, read or write disk stor- 
age, or read or write typewriter. I/O macro-statements 
may be inserted anywhere in the user's program. 
When an I/O macro-statement is encountered in the 
source program during assembly, linkage instructions 
to the I/O routine (part of the Supervisor program) 
are generated in the object program. 

The macro-instruction mnemonic operation codes 
and their meanings follow: 

Mnemonic Meaning 
GET Read card, paper tape, typewrit- 

er, or disk. 

PUT Punch card, paper tape, or write 

typewriter, or write disk rec- 
ords with or without read- 
back check. 

SEEK Seek disk record. 

CALL Read disk stored subprogram 

and execute (requires link 
operand), or read disk stored 
subprogram or data without 
execution (requires LOAD oper- 



and), or return control to 
Supervisor (requires exit 
operand). 

The six types of macro-statements that use the I/O 
routine are written as follows: 



label 


Op«fOtion 

12 15 


Operands & Remarks 

U 30 25 30 35 40 4S 50 






V,E,F 










PUT 


D,£:,F 




Put 


DEF.RBC ' 

' 1 ''i ■ 1 ' ' ' ■ 1 ' ' .11. 










SEEI< 


P,f,F 










CAL f. 


LJ /^K^,,D l,ni£NT_, RELOC 




CALL 


L/NK,_f^AM£,F£L6c 












l,0,AP^,,DJ M,£1VX,, R£L pc 




C.A.L/. 


LP,HP,,XAfe.E,,J(,£LflC, 








1 , . 1 1 




^^./.r 



A label and remarks may be included with each of 
these statements. The address associated with the 
label will be that of the first instruction in the gen- 
erated linkage. The operands rbc, link, load, and 
EXIT are fixed symbols, i.e., they must be written ex- 
actly as given. The symbol def is the address of the 
associated I/O constant generated by an I/O declara- 
tive statement, diment is the dim entry number of a 
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program to be called from disk storage; reloc is the 
relocation core storage address of a program to be 
called; and name is the name of a program (as it 
appears in the Equivalence table) to be called, def, 
DiMENT, and RELOC may be in actual or symbolic form. 

PUT statements may be specified with or without 
read-back check (rbc), as shown. Either a dim entry 
number or the program name can be given with call 
LINK or CALL LOAD Statements. Also, the relocation ad- 
dress is optional with these statements, i.e., the pro- 
grammer does not have to include a relocation 
address. 

A CALL EXIT statement should be included in the 
user's source program. This statement, when executed 
at the end of the object program, causes control to 
be returned to the Supervisor program. 

All linkages for I/O routines are generated auto- 
matically through the use of macro-instructions. The 
data and addresses supplied in the macro-instruction 
are incorporated into the linkage instructions where 
they are made available for use by the I/O routine. 
The linkage instructions generated in an object pro- 
gram for macro-instructions by the processor are 
equivalent to the following series of symbolic instruc- 
tions. 

Linkage for GET, PUT, and SEEK 

TFM lORT, * + 23 
B ENTRY, DEF, 7 

lORT is the address of a 5-position storage area in the 
I/O routine. 

ENTRY is one of the four possible entry points in the 
I/O routine (see i/o routine linkages). 

DEF is the address of the I/O constant. 



Linkages for CALL LINK and CALL LOAD 

Without a relocation address 

TFM lORT, * -f 19 

B lOCAL 

DORG * - 4 

DC 1, Mo 

DSC 1, Ml 

DSC 1, 0 

DC 5, 1111(g) 



With a relocation address 



TFM 


lORT, * + 19 


B 


lOCAL 


DORG 


— 4 


DC 


1, Mo 


DSC 


1, Ml 


DSC 


1, 0 


DC 


4, nil 


DSA 


LLLLL 


DSC 


1, @ 



lOCAL is an entry to the I/O routine ( core storage ad- 
dress 00716). 

Mo Ml is a constant 32 for call linkages, 
mi is the dim entry number of the program to be 
called. 

LLLLL is the relocation core storage address where the 

program is to be loaded. 
Note: See note under call exit or call load link- 
ages in Supervisor section. 

Linkage for CALL EXIT 

B MONCAL 
DORG * - 4 

MONCAL is an entry (core storage address 00796) to 
the I/O routine which will call in the Monitor 
Control Record Analyzer routine. 

Note: See note under call exit or call load link- 
ages in Supervisor section. 

Input/Output Declarative Statements 

Input/output core storage areas to be used by a pro- 
gram for reading or punching cards, reading or punch- 
ing tape, reading or writing disk storage, and reading 
or writing typewriter must be allotted by the program- 
mer. These I/O areas may be allotted and defined 
using dss or das declarative statements. Each I/O 
area used by an I/O macro-statement (get or put) 
must be identified by an I/O declarative statement. 

The I/O declarative mnemonic operation codes and 
their meanings are as follows: 



Code 


Meaning 


DTN 


Define Typewriter Numerical 


DTA 


Define Typewriter Alphameric 


DCN 


Define Card Numerical 


DCA 


Define Card Alphameric 


DPTN 


Define Paper Tape Numerical 


DPTA 


Define Paper Tape Alphameric 


DDW 


Define Disk with WLRC 


DD 


Define Disk without WLRC 
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DTN, DTA, DCN, DCA, DPTN, and DPTA Statements 

These statements may be used in the source program 
to identify numerical or alphameric typewriter, card, 
or paper tape I/O areas. Each statement causes an 
8-digit I/O constant to be generated in the object pro- 
gram. Two operands are required for each statement. 
The first operand is used to specify the address where 
the I/O constant is to be loaded into core storage. 
The operand may be an absolute value or a symbolic 
name. If a symbolic name is used, the symbol must 
have been previously defined as an absolute value; 
that is, it must have appeared in the label field of a 
statement preceding the statement in which it is used. 
If the first operand is omitted, the processor assigns 
the address to which the constant will be loaded in 
core storage. 

The second operand, which may be symbolic or 
actual, is the leftmost core storage address of an as- 
signed I/O area for the numerical statements or the 
leftmost position plus 1 for alphameric statements. 
This address will be included in the constant in the 
object program. Remarks are permitted following the 
second operand. Items ( operands or remarks ) of a 
statement must be separated by commas. Address 
adjustment may be used with either operand. 

If a label is included with the statement, the storage 
address assigned to it will be that of the leftmost 
position of the 8-position I/O constant. 

The following example illustrates a dcn statement. 



3 S 


Label 


Operatior 

12 15 


Operands & Remarks 

1< » H 30 35 40 50 


0. 1 ,0 


CAPDIO 


vss 


60 , .pff l ME^ CyiWD I/O ATff A 










0.2.0 


Off. . . 




,ICfiP,D.1.0.,IDf/^.T/FX CAfiA J/P. AMA 



The first statement defines an 80-position numerical 
card I/O area and the second statement identifies it. 
The I/O constant generated in the object program 
for the DGN statement is equivalent to the following 
symbolic instructions, 

DEF DS , • -f 1 
DSA CARDIO 
DC 2, 04 
DGM 

where the label def is the leftmost address of this 8- 

position constant and cabdio is the address of the 
associated I/O area. The code 04 is generated for a 
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DCN statement only. A complete list of the codes gen- 
erated for each type of statement follows: 



DTN 


00 


(Typewriter Numerical) 


DTA 


06 


(Typewriter Alphameric) 


DCN 


04 


(Card Numerical) 


DCA 


lo 


(Card Alphameric) 


DPTN 


02 


(Paper Tape Numerical) 


DPTA 


08 


(Paper Tape Alphameric) 



DDW and DD Statements 

These statements are used to specify the disk control 
field (defined by a dda statement) to be used for a 
disk operation ( seek, get, or put ) and to specify cer- 
tain options. Each statement (ddw or dd) is assembled 
as an 8- or 13-digit I/O constant depending upon the 
number of given operands. 

A minimum of two operands is required with a ddw 
or DD declarative statement. The first operand, which 
may be symbolic or actual, is used to specify the 
address where the generated I/O constant is to be 
loaded into core storage. If this operand is omitted, 
the processor will assign the address. 

The second operand is the address of the leftmost 
position of the disk control field (defined by a dda 
statement). The operand may be in actual or sym- 
bolic form. 

The third operand, which is optional, specifies a 
relocation core storage address of a program or data 
to be read into core storage from disk storage (when 
the object program is executed). It may be in actual 
or symbolic form. If the programmer does not want 
to include a relocation address, and another operand 
or remark is to follow, a comma must be present. 

The fourth operand, also optional, can cause the 
read/ write heads to be repositioned to an assigned 
cylinder (specified in the System Communications 
Area) after a disk read or write instruction is execut- 
ed as a result of a get or put input/output macro- 
instruction. The operand letter "R" causes reposition- 
ing. If the operand is a blank or a letter "N," no re- 
positioning takes place. If the programmer does not 
enter a letter N or R, and another operand or remark 
is to foUow, a comma must be present. 

The fifth operand, also optional, may be the letter 
A or a blank. If it is the letter A, the sector address 
in the disk control field will be used for the disk oper- 
ation initiated by a seek, get, or put macro-instruc- 
tion. If the operand is blank, an ejffective sector ad- 
dress, produced by adding the sector address to the 
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address of the beginmng work cylinder, is used for 
the disk operation. 

If this operand does not contain the letter A and 
remarks are to follow, the operand must be a comma. 

Address adjustment may be used with any of the 
first three operands. If a label is given with a ddw or 
DD statement, the associated address in the assembled 
object program will be that of the leftmost position 
of the resulting I/O constant. 

The following example illustrates a ddw statement. 



2- s 


Lob«l 


Oparotior 


Operands & Remarkt 

l< 30 S 30 35 40 15 50 


A. 1.0 


, , 




,JlQr.RL.,,.R.A,.I.Q£.JyT./r.Y. PJSK. CTRL. .F.L.V, . 



This declarative statement: 

1. Identifies the address of the disk control field 
by the symbol dctrl. 

2. Indicates by the letter "R" that the read/write 
heads are to be repositioned to a previously 
assigned cylinder after a get or put is executed. 

3. Indicates by the letter "A" that the sector ad- 
dress in the disk control field is to be used for 
the disk operation. 

The I/O constant generated in the object program 
for a DDW or dd statement is equivalent to the follow- 
ing symbolic instructions: 

For statements without a relocation address (third 
operand ) 

DEF 



DSC 


1, Mo 


DSC 


1, Ml 


DSA 


DCTRL 


DC 


1,@ 


relocation address 


DSC 


1, Mo 


DSC 


1, Ml 


DSA 


DCTRL 


DSA 


RELOC 


DC 


1, @ 



where Mo and Mi are codes generated by the pro- 
cessor for use by the I/O routine when the object 
program is executed, dctrl is the address of the 
disk control field, reloc is the relocation core stor- 
age address. 

All disk I/O options are specified by the codes in 
positions Mo Mi. Only certain options are utilized by 
the dd and ddw statements. A complete Hst of options 
available to the user by hand coding Mo and Mi are 
given under i/o constants in the Supervisor Program 
section. 
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The 1620/1710 sps h-d processor, available in either 
card or paper tape form, is designed to use the ibm 
1311 Disk Storage Drive as an integral unit in the as- 
sembling of user- written source programs. By using 
the large storage capacity of the disk drive, program 
assembly can be accomplished quickly and eflBciently. 

A typical assembly procedure might proceed as 
follows: 

1. The source program is loaded together with the 
applicable Monitor Control records and sps h-d 
Control records (see sps h-d control records). 

2. The source input is read into core storage, one 
statement at a time. During assembly, the work 
cylinder area of disk storage is used for inter- 
mediate output. 

3. If a program listing (typewriter) or a list deck 
(cards) has been requested, the output will ap- 
pear after all statements have been read. 

4. After assembly, the object program is stored or 
outputted as directed by the sps ii-d control 
statements that were loaded with the source in- 
put. Subroutines used by an object program and 
subprograms are not stored or outputted as part 
of the object program. 



Operafing Procedures 

These operating procedures assume that the sps h-d 
processor and all subroutine sets are already on disk 
storage. 

Assembly Set-Up 

To assemble an sps n-D source program, proceed as 
follows: Load the source program preceded by the 
applicable Monitor Control record (sps or spsx) and 
the desired sps n-D control records. The source pro- 
gram must end with a dend statement. Following 
the dend statement is either the first card of the next 
"job," or data if the program is to be executed imme- 
diately after assembly. 

The loading procedure for sps programs is more 
fully described in the Supervisor section of this 
manual. 
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SPS ll-D Control Records 

sps control records must be provided to control the 
assembly of sps programs. These records may be 
in card, paper tape, or typewritten form, and are in- 
serted in the stacked input behind the Monitor Con- 
trol record (sps or spsx) to control the specified sps 
assembly, sps control records are typed out when 
they are encountered in the stacked input. The for- 
mat of an sps control record in terms of cards is as 
follows : 

Columns 1 * 

2-75 Control statement 

Only one control statement may be entered in each 
control card. The control statements must be writ- 
ten exactly as given, except for blanks which are per- 
mitted anywhere in the control statement (two pass 
MODE, OBJECT CORE n, ctc. ) . Control statements may be 
followed by remarks. Any statement, other than those 
listed below (e.g., an identification statement) will 
be typed, but will have no ejfect on the assembly. The 
processor will indicate an identification statement by 
typing (ID) to the right of such a statement. 

Intervening blanks between the letters of a control 
statement do not invalidate the statement, 

TWO PASS MODE. This control statement causes 
the object program to be produced by entering the 
source program twice (two passes). Two passes are 
required when the space allotted for work storage 
is too small to contain the intermediate ou^ut from 
the assembly. ( The space required for one-pass opera- 
tion is approximately one sector per source state- 
ment.) If one-pass assembly is attempted with too 
large a source program, an error message is typed 
out. 

OBJECT CORE n. This statement specifies the core 
storage capacity (20,000, 40,000, or 60,000) of the 
object machine (machine on which the object pro- 
gram will be run). If the storage capacity of the as- 
sembly machine (machine on which the object pro- 
gram will be assembled) and the object machine are 
the same, this statement is not needed. The n digit of 
the statement is one of the coded digits 2, 4, or 6 
which represent 20,000, 40,000, and 60,000, respective- 
ly- 

SUBROUTINE SET nn. This statement specifies a 
subroutine set number, 01, 02, or 03. When the 
program being assembled is to be executed, this set 
number will be used to load the proper subroutines 



into core storage. This subroutine set specification can 
be overridden, however, by specifying a different 
number in the xeqs Monitor Control card ( see super- 
visor program) when the program is executed. If no 
subroutine set control statement is present at assembly 
time or at execute time, the assembler will use the set 
number that was previously stored in the System Com- 
munication Area (see section on Supervisor Program). 

MANTISSA LENGTH nn. This statement specifies 
the mantissa length (02 to 45) for subroutines sets 02 
or 03. The mantissa length that will ultimately be used 
for execution purposes is determined in the same 
manner as the subroutine set number described above. 

NOISE DIGIT n. This statement specifies the noise 
digit (0-9) to be used by the subroutines. The noise 
digit that will ultimately be used for execution pur- 
poses is determined in the same manner as the sub- 
routine set number described above. 

ERROR STOP. This statement instructs the proces- 
sor to stop whenever a source statement containing an 
error is encountered. When this occurs, an error mes- 
sage will be typed ( see error messages ) . The operator 
can then enter a corrected source statement and con- 
tinue assembly ( see on-line error correction ) . If an 
Error Stop control statement is omitted, the processor 
will not stop for erroneous source statements; how- 
ever, an error message will still be typed. 

ASSEMBLE RELOCATABLE. This statement 
causes the processor to assemble a relocatable object 
program in System Output format. If this statement 
is omitted, the processor will produce an "absolute," 
nonrelocatable program. 

BEGIN CARD INPUT, BEGIN PAPER TAPE IN- 
PUT, BEGIN TYPEWRITER INPUT. These three 
statements cause the loading program to begin read- 
ing input from the newly designated unit. These state- 
ments can be used as "last" control statements when 
the source program is to be entered from a different 
input medium than were the control statements. 

TYPE SYMBOL TABLE. This statement causes the 
symbol table to be typed after all source statements 
have been read (see typeout of symbol table ) . 

PUNCH SYMBOL TABLE. This statement causes 
the symbol table to be punched into cards after all 
source statements have been read. These cards may 
be listed 80-80 on an ibm 407 to obtain a printed 
symbol table. 
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LIST TYPEWRITER. This statement causes a pro- 
gram listing (containing both source and object data) 
to be typed as the program is being assembled. 

LIST CARD. This statement causes the program to 
be punched into cards which may be used to make a 
program listing (ibm 407 80-80). If desired, both the 
LIST TYPEWRITER and LIST CARD Statements may be 
used in one assembly. 

OUTPUT CARD. This statement causes the object 
program to be punched into cards in a reloadable 
format (see system output format in the Supervisor 
section). This output will occur after any symbol 
table and listing outputs, 

OUTPUT PAPER TAPE. This statement causes the 
object program to be punched into paper tape in a 
reloadable format (see system output format in the 
Supervisor section). Either an output card or an out- 
put PAPER tape statement may be used for an assem- 
bly, but not both, 

STORE CORE IMAGE. This statement causes an 
assembled program to be permanently stored on the 
disk in a format that is identical to the format of an 
executable program in core storage. This statement 
may not be used in an assembly that also contains an 

ASSEMBLE RELOCATABLE Statement. 

STORE RELOADABLE. This statement causes the 
assembled program to be stored on the disk in a re- 
loadable format. This format is identical to that de- 
scribed under system output format. If neither 

STORE CORE IMAGE UOr STORE RELOADABLE is Specified, 

the assembled program will not be permanently stored 
on the disk. However, the program will remain in the 
work cylinders until destroyed by another job. 

SYSTEM SYMBOL TABLE. This statement allows 

the source program to use symbols stored in the Sys- 
tem Symbol table without defining them in the source 
program itself. There is a provision in sps ii-d for 
defining user symbols in the System Symbol table 
(see sps ii-D modification program). 

NO SYMBOLIC DIVIDE. This statement may be 
used to provide compatibility with previous assembly 
programs which treated the slash symbol as a valid 
label character. When used, the Address Adjustment 
Divide programming feature is disabled and the slash 
symbol may be used as a label character. 

NO SUBROUTINES. This statement is used, 
when assembling subprograms for a mainline pro- 



gram, to prevent subroutines from being called with 
subprograms. When the mainline program is as- 
sembled, it must specify or call all the subroutines 
used by it, as well as those used by its subprograms. 

ID NUMBER dddd. This statement assigns a 4- 
digit DIM entry number (dddd) to a program being 
assembled. Exactly four digits, including leading 
zeros, must be entered. 

NAME aaaaaa. This statement can be used to assign 
a Name in the Equivalence table for an assembled 
program which is to be stored in disk storage, aaaaaa 
is a 6-character alphameric name. At least one of these 
characters must be alphabetic. 

LIBR. This statement must be entered when as- 
sembling a user-written subroutine that is to be 
added to the library subroutines. 

PUNCH RESEQUENCED SOURCE DECK. 
This statement causes the processor to punch a new 
source deck in sequence by page and line number. 
The page and line field will contain a 5-digit number 
starting with 00010 and will increase by ten for each 
successive card, e.g., 00010, 00020, etc. The rese- 
quenced deck is punched while the old source cards 
are being read. The output appears in the punch 
stacker ahead of any other punched output. When 
operating in two-pass mode, the resequenced source 
deck should be used for the second pass. Corrections 
to source statements made from the typewriter will 
not appear in a resequenced source deck. 

Assembly Error Messages 

The error message codes that might be typed out on 
the typewriter during an assembly are listed in Table 
6. Error messages take the following general form: 

PPPPP ALABEL -f CCCC ERn 

where ppppp is the page and the line number of the 

statement in error, alabel is the last label used, and 
CCCC is the number of statements from that label to 
the statement in error. 

When ER5 (see Table 6) is typed out, the errone- 
ous symbol is also typed. 

Table 7 shows what the processor will do about 
each error if no Error Stop control statement has 
been included in the assembly. 
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On-line Error Correction 

One-Pass Mode. If the operator wishes to correct 
source program errors during the assembly process, 
he must use the Error Stop control statement. When 
an error occurs, the appropriate error message is 
typed out along with one of the following instructions 
to the operator: 



RE-ENTER STATEMENT 
RE-ENTER OPERANDS 



or 



At this point, the processor returns the typewriter 
carriage and t\'pes the full erroneous source state- 
ment. If only the operands are to be re-entered, the 
processor will then retype the source statement up 
to the operand field. The processor at this point re- 
quires that the operator enter either an entire correct- 
ed source statement or a corrected operand field. The 
operator should use the previously typed original 
statement as a guide to the positions of the Page, 
Line, Label, Op code, and Operand fields. 

Two-Pass Mode. The error correction procedure in 

two-pass mode is identical with that of the one-pass 
mode, with one exception. During the second pass, 
the processor might type an error message containing 
"er XX." This message always refers to a statement 
corrected during the first pass. The operator should 
scan the typewritten record of the corrections made 
during the first pass to find the one identical in page 
and line number, label, and increment. When the 
processor types be-enter stmt and returns the car- 
riage, the operator must re-enter the entire corrected 
statement, exactly duplicating the statement entered 
during the first pass. 



Post Assembly Phase 

After assembly is completed and listings, if desired, 
have been outputted, the following messages are 
typed: 

END OF ASSEMBLY 

XXXXX CORE POSITIONS REQUIRED 

XXXXX STATEMENTS PROCESSED 

In the above typeouts, xxxxx is a 5-digit number. 
In the case of core positions required, any needed 
subroutines are included in the count of core posi- 
tions. If, din-ing assembly, the assemble relocatable 
control record is used, the message plus relocation 



INCREMENT foUows tile CORE POSITIONS REQUIRED mes- 
sage. 

SYMBOL TABLE OUTPUT 

If either of the statements type symbol table or 
PUNCH symbol table are present in an assembly, the 
symbol table will be typed or punched during as- 
sembly. This output, if punched, will precede the list 
deck in the punch stacker. 

All 6-character labels are listed first in reverse 
alphameric order, i.e., 9 to 0, Z to A. All other labels 
follow in normal alphameric order with their head 
characters. In the case of an assembly in which the 
number of symbols exceeds 235 (some symbols will 
then have to be stored on disk), the listing is broken 
into two or more blocks, each of which is sorted as 
described above. 

The format of the symbol table output is as follows: 

Typewriter. The typed output lists all labels and 
their numerical equivalences, five to a line. The for- 
mat is as shown. 



Label 
LLLLLL 



Equivalence 
AAAAA(-) 



Here llllll refers to a 6-character label or a 5 or 
fewer character label with a head character. 

aaaaa refers to the numerical equivalence of the sym- 
bol. The minus sign, if present, denotes a negative 
quantity. If the program is being "assembled relo- 
catable," the minus sign is replaced by an R to 
denote a relocatable quantity. 

Card. The card output format of the symbol table 
is as follows: 



Columns 1-13 
17-29 
33-45 
49-61 
65-77 



1st label plus equivalence 
2nd label plus equivalence 
3rd label plus equivalence 
4th label plus equivalence 
5th label plus equivalence 



FORMATS OF TYPEWRITER LISTING AND PUNCHED DECK 

If desired, the operator can obtain a typewriter hst- 
ing and/or a punched list deck of an assembled pro- 
gram. The formats of each type of output are de- 
scribed here, 

Typewriter. A typewriter listing consists of a source 
statement together with its associated assembled ma- 
chine language instruction. 
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• Table 6. Description of SPS Error Codes 



• Table 7. Disposition of SPS Errors When no Error Stop 
Statement is used 



ERROR 
CODE 



ER1 

ER2 
ER3 
ER4 
ER5 



ER6 

ER7 
ER8 



ER9 
ERIO 



ER11 

ER12 
ER13 

ER14 

ER15 

ER16 
ER17 

ER 18 

ER19 

ER20 

ER21 
ER22 



CAUSE OF ERROR 



The capacity of the machine on which the object pro- 
gram is to be executed has been exceeded. The proc- 
essor does not take subroutines into account when 
determining this error. 

Invalid label or record mark is in a label field. 
Invalid OP code or record mark is in on OP code field. 
A label is defined more than once. 

1 . A symbolic address contains more than six 
characters. 

2. An actual address contains more than five digits. 

3. An undefined symbolic address is used in an 

operand. 

4. A HEAD character ($) is improperly specified. 

5. Improper position of left or right parenthesis. 

6. IX > 7 specified. 

7. Non-numeric .IX specified. 

A DSA statement has more than ten operands. 

A DSB statement has the second operand missing. 

1 . A DC, DSC, or DAG has a specified length greater 
than 50. 

2. A DVLC has a length greater than 50. 

3. A DMES has a length greater than 100. 

4. A DNB has a length greater than 99. 

A DC, DSC, DAC, DVLC, or DMES statement has no 
constant specified . 

1 . A DC or DSC statement has a specified length 
which is less than the number of digits in the 
constant itself. 

2. A DAC statement has a specified length which is 
less than or greater than the number of digits in the 
constant itself. 

An invalid character is used as a HEAD character in a 
HEAD statement. 

A HEAD operand contains more than one character. 

A DMES statement contains an invalid starting mode 

character. 

1 . A DMES statement contains a control character 
which is incorrectly specified. 

2. A DMES statement has on invalid format, i.e., 
stray parenthesis, etc. 

A DMES statement contains an alpha character in a 
numerical field. 

A DMES statement contains an invalid mode change. 

1 . A relocatable assembly contains either a relocation 
error (see Rules of Relocatability) or, 

2. A DORG with an absolute operand. 

A symbolic name used in a CALL LINK or CALL LOAD 
statement is not in the Equivalence table. 

The storage area allotted for the symbol table has been 
exceeded. 

Intermediate output has exceeded disk storage work 
area (program requires two passes) . 

Object output has exceeded disk storage work area. 

Improper "select" operand is in a CALL statement; i.e., 
neither LINK, LOAD, nor fXH is specified. 



ERROR 
CODE 


DISPOSITION 


ERl 


No disposition. 


ER2 


The label is ignoi^ed . 


ER3 


A NOP is assembled. 


ER4 


...... 

The secorKi definition of the label is ignored; the first 
definition of the label is used in the assembly. 


ER5 


1-5. The operand is assembled as an absolute 00000. 

6. Operand is assembled but no IX flags are set, 

7. Operand is assembled. Numerical portion of 
units character is used to define IX flags. 


ER6 


The first ten operands are assembled; any remaining 
operands are ignored. 


ER7 


The number of elements is set to 1 . 


ER8 


1 . Length is set to 50. 

2. Length is set to 50. 

3. Length is set to 100. 

4. Length is set to 99. 


ER9 


A field of zeros is generated, equal to the size of the 
length operand for the DC, DSC, DAC, or DVLC 
constant, in the case of a DMES, an end of message 

^ ) is assembled and the address counter is increased 
by 100. 


ERIC 


For a DC or DSC, the length of the, constant is used as 
the length operand; for a DAC, the specified length is 
used, and the programmer-assigned address, if present, 
is ignored. 


ERll 


The HEAD character is set to blank. 


ER12 


The first character of the operand is used as the HEAD 
character. 


ER13 


The starting mode is assembled as the alphabetic mode. 


ER14 


An end of message (+4=) is inserted into the constant. 


ER15 


An end of message (:4:+) is inserted into the constant. 


ER16 


A 0 is placed in the next available location following 
the mode change. 


ER17 


1 . The operand is assembled as an absolute 00000. 

2, The DORG is ignored. 


ER18 


A DIM number of 0000 is assembled. 


ER19 


Processing continues but no more labels ore stored. 
After completion of the intermediate phase, processing 
stops, the following message is typed, and control 
returns to the Supervisor Program. 

DISK AREA TOO SMALL. ASSEMBLY DELETED 


ER20 


Processing continues, but no more intermediate data is 
sent to disk storage. After completion of the inter- 
mediate phase, processing stops, the following message 
is typed, and control returns to the Supervisor Program. 

DISK AREA TOO SMALL. ASSEMBLY DELETED 


ER21 


Processing stops immediately and control is returned to 
the Supervisor Program. 


ER22 


The statement is ignored . 



NOTE: Assembly and outputting continue in 
all cases except ERl 9, 20, and 21. 
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Card. A card list deck usually consists of one card 
for each source statement. The format is as follows: 

Columns 1-5 Page and line number. 
6 Blank 

7-12 Label as on source card. 
13 Blank. 

14-17 Op mnemonic as on source 

card. 
18 Blank. 

19-78 Operand fields as on source 

card. If the fields extend be- 
yond column 59, the object 
information ( normally 
found in columns 61-80 of 
first card) is placed on a 
subsequent card or cards. 

61-65 Actual address of assembled 
instruction or constant. 

66 Blank. 

Note: The data in columns 67-80 is peculiar to the 
type of statement assembled. 

Imperative Statements. 

Columns 67-68 Op code in machine lan- 
guage. 
69 Blank. 

70-74 P operand in machine lan- 
guage. 
75 Blank. 

76-80 Q operand in machine lan- 
guage. 

Non-imperative Statements. 

Columns 67-71 Length of assembled data. 
72 Blank. 

73-80 If these columns are punch- 
ed , they will contain actual 
assembled data. 

POST ASSEMBLY ERROR MESSAGES 

The following error messages are applicable after 

assembly. 

EXCEEDED SPECIFIED CAPACITY BY XXXXX 

The above message indicates that the object pro- 
gram together with applicable subroutines would ex- 
ceed the available core storage if the program were 
to be executed. The available core storage is deter- 
mind by the user's Object Core control card. 

This error does not invalidate the assembly, how- 
ever, since a different set of subroutines may be speci- 
fied at execution time. A different subroutine set 



might occupy less core storage; therefore, the error 
may no longer apply. 

NO DIM ENTRY FOR SUBROUTINE 

The above message is typed out when the dim entry 
which corresponds to a called subroutine cannot be 
found in the map. This would indicate that the entry 
was either deliberately deleted from die map or other- 
wise destroyed. The assembly will continue, however, 
and the object program will be stored. But if execu- 
tion was planned immediately after assembly (sps 
card), assembly would be deferred and control would 
return to the Supervisor program. 

MORE THAN 5 CYLINDERS OF 
RELOADABLE OUTPUT SSW4 
ON TO DUMP OUTPUT OFF 
TO CONTINUE, NO OUTPUT 

The above message is typed when the reloadable 
object output would occupy more than 999 sectors on 
disk storage (approximately 5 cylinders). This situ- 
ation is an error because programs greater than 999 
sectors cannot be specified in the Disk Identification 
Map. 

After the message is typed out, the computer halts. 
At this time the user can either turn Program Switch 4 
on and depress start to have the program outputted 
on a pre-chosen output unit, or turn Program Switch 4 
off and depress start to continue, in which case the 
program is not outputted. In either case the program 
is not stored on disk storage. 



Execution of SPS ll-D Object Programs 

When sps n-D object programs are to be executed, 
they are read into core storage from disk storage, 
paper tape, or cards by the use of Monitor Control 
records. The subroutines which are called for in the 
program are loaded from disk storage at execution 
time. Neither subroutines nor subprograms are ever 
a part of the mainline object program. They are stored 
on disk in relocatable form and brought into core 
storage if needed. The selection of proper subroutines 
at execution time is made by referring to an "indicator 
record" which is stored with the mainline object pro- 
gram. This record, generated at assembly time, con- 
tains a 1-digit location for each of the subroutines in 
a set. At assembly time, as the individual subroutine 
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macro-instructions are encountered in the source pro- 
gram, a 1 is placed in the 1-digit location that cones- 
ponds to the subroutine being called. The record is 
then a "map" of the subroutines needed for the par- 
ticular mainline object program. 

Execution Time Error Messages 

The following error messages are applicable at execu- 
tion time. Their occurrence terminates loading and 
returns control to the Supervisor program. 

CORE CAPACITY EXCEEDED 
BY XXXXX LOCATIONS 
PROGRAM IS TERMINATED 

The above message is typed out when the total core 
storage required for the object program and all ap- 
plicable subroutines exceeds the available core stor- 
age. Note that there is a similar message at assembly 
time if available core storage is exceeded. However, 
it is possible to get the message at execution time 
without having gotten it at assembly time. This could 
happen if a difiFerent subroutine set is specified at 
execution time (in xeqs card) than that which was 
assembled with the source program. 

SUBR NOT LOCATED IN SUBROUTINE MAP 

The above message occurs if a subroutine that is 
specified in the "indicator record" of the source pro- 
gram cannot be found in the subroutine section of the 
Disk Identification Map. 

IMPROPER IND CODE IN SUBR XXXX 

The above message occurs when an invalid "reload- 
able indicator code" (see system output format in 
Supervisor section) is found in the object output of 
a subroutine. In this message, xxxx are the first four 
digits of the subroutine identification number; two 
digits are for the set number, and two digits are for 
the subroutine number. 



Rules of Program Relocatabiliiy 

When a program is relocated, as specified by an 
ASSEMBLE RELOCATABLE Statement, Certain addresses 
within the program are adjusted relative to the relo- 
cation (starting) address. Only relocatable quantities 
are adjusted. Absolute quantities are not adjusted. 



Examples of both relocatable and absolute quantities 
follow: 

relocatable 

B * + 24 
absolute 

AM X, 12345 
The processor recognizes relocatable and absolute 
quantities by applying the following rules: 

1. An integer (e.g., 1, 12345, etc.) is an absolute 
value. 

2. A processor-assigned address, which is associated 
with a label (i.e., the address of an instruction 
or constant with an associated label), is a relo- 
catable quantity. An asterisk address (*) is also 
relocatable. 

3. A symbol defined as equal to some quantity has 
the same relocation property as the associated 
quantity. An example follows: 

SYMBOL DS ,QUAN 

4. The product of two absolute quantities is an ab- 
solute quantity. 

5. The sum or difference of two absolute quantities 
is an absolute quantity. 

6. The sum or difference of a relocatable quantity 
and an absolute quantity is a relocatable quanti- 
ty. 

7. The difference between two relocatable quanti- 
ties is an absolute quantity. 

The processor will recognize any of the following 
situations as "relocation errors." 

1. The sum of two relocatable quantities. 

2. The product of a relocatable quantity and any 
other quantity. 

3. An operand below the relocatable address of 
00000. For example, reloc —10000, where reloc 
is a relocatable quantity of less than 10000. 

Note: The exact negative of a valid relocatable 
quantity is a valid relocatable quantity. 

Although the quantity defined by an operand may 
be either positive or negative, a symbol may be equiv- 
alent to a positive quantity only. If a symbol is de- 
fined equal to a negative quantity, any reference to 
that symbol by the assembler will produce the abso- 
lute value of the quantity. 
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SPS //-£> Modification Program 

This program allows the user to modify the sps ii-d 
assembler by: (1) Adding or deleting operation codes 
from the System Op code table, and (2) Adding or 
deleting symbols from the System Symbol table. The 
SPS ii-D Modification program is loaded into disk stor- 
age as part of the Monitor II system. It is identified in 
the Equivalence table by the name "spslib." 

An XEQ Monitor Control record with the assigned 
name spslib punched in columns 7-12 is used to call 
the modification program for execution. To specify 
the type of modification desired, the user places modi- 
fication control records following the xeq record. 
These records and any other input data to the Modi- 
fication program must be entered from the same input 
device that was used to enter the xeq record. 

Modification program control records, in terms of 
cards, use the same format as that used for sps control 
records. The five modification control statements must 
be written exactly as given (define op code, delete 
op code, define system symbol table, list op code, 
endlib. Only one statement may be included in a 
control record. These statements are typed when they 
are read. A description of the five control statements 
follows. 

DEFINE OP CODE. This statement causes user- 
assigned Op (operation) codes, specified in Op code 
definitions cards, to be added to the sps ii-d System 
Op code table. The Op code definition card(s) must 
follow the control record in the stacked input. The 
format of the Op code definition card follows: 

Columns 12-15 New mnemonic Op code (left 

justified ) . 

16-75 A 3-digit code which determines 
the instruction generated by the 
Op code. (The code may be 
preceded by a minus sign.) 
The allowable 3-digit codes that may be entered in 
columns 16-75 are shown in Table 8. 

The digits X and Y may be any number 0-9. A sep- 
arate Op code definition card should be entered for 
each Op code that is to be defined. If an attempt is 
made to define an Op code that is already present 
in the Op code table, the message 

ALREADY DEFINED 

will be typed and the new Op code will be ignored. 
If space is unavailable in the Op code table for a 
new Op code, the message 

NO ROOM IN TABLE 
will be typed and the new Op code will be ignored. 



DELETE OP CODE. This statement causes Op 
codes, specified in Op definition cards, to be de- 
leted from the sps ii-d System Op code table. The Op 
code definition card(s), which must follow the control 
record in the stacked input, specifies in columns 12-15 
the code to be deleted; columns 16-75 may be blank. 
Only one Op code may be specified per card. If an 
attempt is made to delete an Op code that is not in 
the Op code table, the message 

NOT IN TABLE 

will be typed and no change will be made to the 
table. 

DEFINE SYSTEM SYMBOL TABLE. This state- 
ment is used to modify the System Symbol table. The 
System Symbol table consists of certain symbols that 
were defined when the Monitor System was assembled 
plus any symbols the user adds by means of the define 
SYSTEM symbol TABLE Statement. Any symbol that is in 
the System Symbol table may be used in any assembly 
without defining the symbol within the program being 
assembled. When used, the Define System Symbol 
Table statement first causes all user-defined symbols 
to be deleted from the table. Then all symbols which 
follow the Define System Symbol Table statement 
are added to the System Symbol table. Symbols to be 
added are defined in the Symbol Definition record. 
The format of this record in terms of cards is as fol- 
lows: 

Columns 6-11 Symbol to be defined (left justi- 
fied). 

16-75 An operand, symbolic or actual, 
but not asterisk. (If a symbolic 
operand is used, it must have 
been previously defined in the 
System Symbol table.) 

If a symbolic operand, contained in the operand field, 
(columns 16-75) of a Symbol Definition card, cannot 
be matched with a previously defined symbol in the 
System Symbol table, the message 

UNDEFINED SYMBOL XXXXX 

is typed out, where xxxxx is the undefined symbolic 
operand; no change is made to the System Symbol 
table. Up to 150 user-defined symbols may be added 
to the System Symbol table. Any attempt to insert 
more symbols causes an error message to be typed 
and control to be returned to the Supervisor program, 
thus terminating the add-to-symbol-table function. 
Symbols that have less than six characters will be de- 
fined with a blank "heading character" in the System 
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Symbol table. Symbols defined as positive quantities 
will be treated as positive-absolute quantities in both 
absolute and relocatable assemblies. Negative quanti- 
ties will be treated as negative-absolute quantities in 
an absolute assembly and positive-relocatable quanti- 
ties in a relocatable assembly. 



LIST OP CODE. This statement causes the proces- 
sor to type a listing of the Op code table. All Op codes 
are listed in tabular form with their associated 3-digit 
codes. 



END LIB. This statement causes control to be re- 
turned to the Supervisor program. In the stacked in- 
put, it must follow other control statements which 
utilize the modification program. 



IBM Defined System Symbols 

The following symbols will be available to the user 
in the Svstem Svmbol table. 



Symbol Equivalence 



9RCYL0 
9RCYL1 
9RCYL2 
9RCYL3 



00513 
00515 
00517 
00519 



Description 

These are the low-order posi- 
tions of four 2-digit fields 
which contain the numbers of 
cylinders (00-99), where the 
disk access arm is repositioned 
after a disk operation in which 
a reposition has been request- 
ed. The four fields refer to 
drives 0, 1, 2, and 3, respec- 
tively. 



9CCYL0 02132 These are the low-order posi- 

9CCYL1 02134 tions of four 2-digit fields, sim- 

9CCYL2 02136 ilar to the previous four. How- 

9CGYL3 02138 ever, these positions contain 

the cylinder numbers of the 
current access arm positions 
(the position of the arm after 
the last disk lORT operation). 

Table 8. Codes and Assembled Data for SPS Modification 
Program 



CODE 


ASSEMBLED DATA 


USE 


XYO 


XY 


PPPPP 


QQQQQ 


Any instruction 


-XYl 


Macro-instruction sub- 
routine linkage to sub- 
routine XY 


Subroutine Macros 


-XY2* 


8X 


PPPPP 


YQQQQ 


SlOO instructions 


-XY4 


4X 


PPPPP 


QOOQY 


Mask and Unmask 
instructions 


-XY6 


3X 


PPPPP 


Q34QQ 


Binary I/O 


XY2 


3X 


PPPPP 


Q07QY 


Disk instructions 


XY3 


3X 


PPPPP 


QOYQQ 


I/O instructions 


XY4 


34 


PPPPP 


QOXQY 


Control instructions 


XY6 


46 


PPPPP 


QXYQQ 


Branch Indicator instruc- 
tions 


XY7 


47 


PPPPP 


QXYQQ 


Branch No Indicator 
instructions 


XY9 


6X 


PPPPP 


QQQQY 


Branch Select Instruction 



*lf the first character of the Op code contained in columns 12-15 
is the letter "R, " position O] of the assembled instruction will be 
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The FORTRAN n-D programming system consists of 
the FORTRAN ii-D language and the processor. The 
FORTRAN II-D language is comprised of a number of 
types of statements that the programmer may use in 
defining the problem to be solved. The Fortran n-n 
processor is a program that accepts the source pro- 
gram statements as input and produces, as output, a 
machine language program, known as the object pro- 
gram. The FORTRAN n-D processor can operate only 
under control of the Monitor System and the object 
programs it produces can be reloaded only by the 
Monitor Input/Output routine. It is possible for the 
user to remove the Fortran portion of Monitor II and 
still utilize the remainder of the system. It is also pos- 
sible to remove some of the Fortran library subrou- 
tines that are supplied and still utilize the remainder 
of the FORTRAN systcm (see disk storage location 

OF THE FORTRAN COMPILER). 

FORTRAN ll-D Language 

The FORTRAN ii-D sourcc program consists of a num- 
ber of statements. Each statement deals with one 
aspect of the problem; that is, it may cause data to 
be fed into the computer, calculations to be perform- 
ed, decisions to be made, results to be printed, etc. 

Some statements do not cause specific computer 
action, but rather provide information to the process- 
or program. 

FORTRAN n-D Statements are arranged in five groups: 
Arithmetic statements which specify the mathematical 
calculations to be performed. 

Control statements which govern the sequence in 
which the statements will be followed. 
Subprogram statements that enable the programmer 
to define and use subprograms. 

Input/Output statements that read data into the pro- 
gram or print or punch the results of the program. 
Specification statements that provide information 
about the data that the object program is to process. 

The above statement types are explained in detail 
later in this manual. 

FORTRAN ii-D Statements are written on a standard 
FORTRAN Coding Form which is designed to organize 
the statements into the special format required by the 
processor program. All statements and comments of 
the source program are written on this form. 

The function of each portion of the coding form 
shown in Figure 12 is explained below. 



Space is provided at the top of each page for the 
name of the program, date, etc. This information does 
not constitute part of the source program and is not 
punched into cards. 

The series of numbers ( 1, 5, 6, 7, 10, . . . , 72 ) 
across the top of the form indicates the card column 
that the information is punched into. 

Comments to explain the program are written in 
columns 2-72 of a line with a C in column 1. The letter 
C must be followed by two spaces for paper tape or 
typewriter input. A comment line is not processed by 
the FORTRAN ii-D program but is listed when the source 
program cards are listed. 

Columns 2 through 5 are used for the statement 
number. Any number from 1 through 9999 may be 
used as a statement number. Statement numbers are 
used for cross reference within a program (see ex- 
planations of DO and go to statements) or may be 
used merely as a means of identifying statements. 
Statements should be numbered only when they are 
referenced by another statement and no two state- 
ments can have the same number. Also, there is no 
requirement that every statement must have a num- 
ber, nor that statements must be numbered in 
sequence. 

Column 6 of the initial line of a statement must be 
blank or zero. If a statement is too long to be written 
on one line it can be continued on as many as four 
"continuation lines." Continuation lines are written by 
placing in column 6 any character or any number 
from 1 through 9 (zero allowed only for initial line). 
The normal method is to number the initial line zero, 
the second line one (first continuation line), the third 
line two, etc. A statement other than a comment state- 
ment may not consist of more than 330 characters 
(i.e., 5 lines). 

Note: Continuation lines are not allowed when input 
is from the t3^ewriter or paper tape, i.e., statements 
up to 330 characters in length are entered in one 
group. 

The body of the statements themselves are written 
in columns 7 through 72. Blank columns for the most 
part are ignored by the processor and may be used 
freely to improve the readability of the source pro- 
gram listing. 

Columns 73 through 80 are not processed and 
therefore may contain any identifying information. 

The information on each written line in the state- 
ment section of a coding form is punched into a card. 
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A standard Fortran card is shown in Figure 13. 

After the cards are punched, they should be veri- 
fied to lessen the chances of clerical errors causing 
source and object program errors. 



range from minute fractions to large numbers may be 
handled by the computer. Floating-point numbers 
are expressed as decimal fractions times a power of 
ten. For example: 



Arithmetic Mode 

Quantities used in the Fortran statements may be ex- 
pressed in either fixed-point or floating-point form. 
Numbers expressed as integers (whole numbers) are 
considered fixed-point. Thus, the integers 3, 57, and 
1008 are fixed-point numbers. 

Floating-point arithmetic is a technique used to 
eliminate the complex programming required for cor- 
rect placement of the decimal point in arithmetic 
operations. Floating-point numbers are represented 
in a standard format which specifies the location of 
the decimal point. With this method, quantities which 



3.14159 is expressed as .314159 x 10^ 
4800.0 is expressed as .48 x 10* 
0.0187 is expressed as .187 x lO ^ 

The numerical part of the floating-point number is 
called the mantissa and the power of ten is called the 
exponent. For a floating-point number, the decimal is 
always moved to the left of the high-order nonzero 
digit. This is called normalizing the number. 

In FORTRAN ii-D, fixed-poiut or floating-point num- 
bers can be used, subject to the rules described under 

ARITHMETIC STATEMENTS. 



IBM 

Program 

Coded By _ 
Checked By 



FORTRAN CODING FORM 



Identification 
I .. I I ... I 



form X28-7327-3 
Printed in U.S.A. 



Dote _ 
Page. 



of. 



i STATEMENT 
NUMBER 
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u 
6 


FORTRAN STATEMENT 
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FORTRAN STATEMENT 



lOENTinCATION 



Woo 

ll 2 3 4 

1'1 1 1 

I 

2|2 2 2 
3i3 3 3 
4I444 
5|5 5 5 

e'e 6 6 

I 

717 7 7 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

7 I t 10 in: 13 14 1S 16 17 18 19 21 22 23 24 » 2t 77 28.n K 31 32 33 34 ]:> 38 37 38 39 40 41 42 43 44 4S 46 47 4S 4S so 51 S2 M 54 56 S7 58 S9 eO 61 62 (3 S4 6S 66 67 t8 69 70 71 72 
111111111111111111111111111111111111111111111111111111111111111111 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 333333333333333333333333333333333333 



0 0 0 0 0 0 0 0 

73 74 75 76 77 78 79 M 
11111111 

2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 



44444444444444444444444444444444444444444444444444444444444444444444444444 



9I9 9 9 

II2 3 4 



5 5555555 55555 555 5S55555555S5S5555555 5S555 55 5555555555555S5S55S555S 



5S555555 



66 6666666666666666666666666866666666666 6666 6666E66666666666866666666666666 



7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
8 BBB88888888B88B8888888888888888888B88BB8B8B8BB8888888888888 888888 



7 7 7 7 7 7 7 7 

8 8 8 8 8 8 8 8 

99999999999999999999999999999999999999999999999999999999999999999999999999 

7 8 ) 10 11 12 13 14 IS IS 17 18 19 28 :t 22 23 24 25 26 27 2t 29 31! }1 32 33 M » 36 37 ]( 31 « 41 42 43 44 « « 4; 4« 4S M SI U U M M ie S7 98 SI to 61 82 S3 64 65 66 G? 6e Ei 70 71 72 73 74 75 7C 77 71 79 N 



Figure 13. FORTRAN Source Program Card 



Constants, Variables, Subscripts, and Expressions 

Mathematical problems usually contain some data 
that does not change throughout the entire problem, 
and other data that may change many times during 
calculation. These two kinds of data are referred to 
as constants and variables, respectively. Both con- 
stants and variables can be used in Fortran ii-d, but 
they must be written so the processor can distinguish 
one from the other. 

Constants 

A constant is any number which is used in computa- 
tion without change from one execution of the pro- 
gram to the next. A constant appears in numerical 
form in the source statement. For example, in the 
statement 

J = 3 + K 

3 is a constant, since it appears in actual numerical 
form. Two types of constants may be written in 
FORTRAN II-D: fixcd-point (restricted to integers), and 
floating-point (characterized by being written with a 
decimal point ) . 

FIXED-POINT CONSTANT 

A fixed-point constant is an integer consisting of 1 to 
10 numerical characters (see arithmetic precision). 
A preceding plus sign is optional for positive num- 
bers. An unsigned constant is assumed to be positive. 

examples 

3 

+1 

-28987 



floating-point constant 

A floating-point constant may be in either of two 
forms: 

1. Any number consisting of 1 to 28 decimal digits 
with a decimal point at the beginning, at the 
end, or between two digits (see arithmetic 
precision), a preceding plus sign is optional for 
positive numbers. Zeros to the left of the decimal 
point are permissible. 

EXAMPLES 

17. 
5.0 

-.0003 
0.0 

2. An integral decimal exponent preceded by an E 
may follow a floating-point constant. The magni- 
tude thus expressed must be between the limits 
of 10"^°^ and 10^^ or must be zero (see arith- 
metic PRECISION ) . 

EXAMPLES 

5.0E3 = (5.0 x 103) 
5.0E + 3 = (5.0 X W) 
3.14E = (3.14 X 10«) 

Variables 

A FORTRAN variable is a symbolic name which will as- 
sume a value during execution of a program. This 
value may change either for different executions of 
the program or at different times within the program. 
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For example, in the statement 

A = 3.0 + B 

both A and B are variables. The value of B will be 
assigned by a preceding statement and may change 
from time to time, and A will change whenever this 
computation is performed with a new value of B. 

As with constants, a variable may be in fixed-point 
or floating-point form. 

FIXED-POINT VARIABLES 

A fixed-point variable is named by using 1 to 6 alpha- 
betic or numerical characters (not special characters) 
of which the first must be I, J, K, L, M, or N. 

EXAMPLES 
I 

M2 

JOBNOl 

A fixed-point variable can assume any integral value 

provided the magnitude is less than the maximum 
size as defined through the use of a control record as 
stated under arithmetic precision. (If not defined, 
the maximum size will be 4 decimal positions for 
fixed-point numbers. ) 

floating-point variables 

A floating-point variable is named by using 1 to 6 
alphabetic or numerical characters (not special char- 
acters), of which the first is alphabetic but not I, J, 
K, L, M, or N. 

examples 

A 
B7 

DELTA 

A floating-point variable may assume any value ex- 
pressible as a normalized floating-point number, i.e., 
zero or any number between lO-^"*^ and 10®®. The 
number of mantissa characters may be from 2 to 28 
(see ARITHMETIC PRECISION). If uot defined, the maxi- 
mum size will be 8 characters for the mantissa. 

ArithmeHc Precision 

The precision of the quantities used in the calculation 
is an important consideration in most types of scien- 
tific computation. For example, the computation of 
7.19 X 3.14 would not be as precise as 7.19286 x 
3.14159. 

In the FORTRAN ii-D system, the variable-field length 

capacity of the 1620 is used to allow varying the de- 
gree of precision from one program to another. The 



user has the ability to define the precision to which 
fixed-point and floating-point values should be car- 
ried. Floating-point precision, denoted in this publica- 
tion as /, may be varied from 2 to 28 places; fixed- 
point precision, denoted by k, may be varied from 4 
to 10 places. 

The precision of the values may be changed by the 
use of a control record which must precede the source 
program (see Fortran ii-d control records, fandk) 
or the values may be changed by use of the Disk 
Utility Program define control record. If not redefin- 
ed (by either of these methods), the value of f is 8 
and k is 4. 

Values for / and k must be the same for subpro- 
grams and link programs called by the main program. 

Subscripts 

An array is a group of quantities. It is often advan- 
tageous to be able to refer to this group by one name 
and to refer to each individual quantity in this group 
in terms of its place within the group. For example, 
assume the following is an array named next: 

15 

12 

18 

42 

19 

If it were desired to refer to the second quantity in 
the group, the ordinary mathematical notation would 
be NEXT2. In FORTRAN this becomes 

NEXT (2) 

The quantity in parentheses is called a subscript. Thus 

NEXT ( 2 ) has the value of 12 
NEXT (4) has the value of 42 

The ordinary mathematical notation might be nexti, 
to represent any element of the array next. In For- 
tran, this is written 

NEXT (I) 

where I equals 1, 2, 3, 4, or 5. A program may also 
use two or three-dimensional arrays. For example, the 
following is a two-dimensional array named mrate. 





Column 1 


Column 2 


Column 3 


Row 1 


14 


12 


8 


Row 2 


48 


88 


4 


Row 3 


29 


25 


17 


Row 4 


1 


3 


43 



To refer to the quantity in Column 2, Row 4, the 
FORTRAN statement would be written 'as mrate (2,4), 
The value of mrate (2, 4) is 3. 
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The value of mrate (3, 3) is 17. 
Thus, subscripts are positive fixed-point quantities 
vi^hose values determine the member of the array to 
which reference is made. 

GENERAL FORM 

Let V represent any fixed-point variable and c ( or c' ) 
any fixed-point constant. Then, a subscript is an ex- 
pression in one of the following forms. 

V, c, v+c, V— c, c*v, 
c*v-f-c' or c*v— c' 

(The symbol * denotes multiplication.) 

EXAMPLES 

I 

3 

MU + 2 
5*J 
5* J-2 

The variable in a subscript must not itself be sub- 
scripted. 

Subscripted Variables 

A fixed or floating-point variable may be subscripted 
by enclosing up to three fixed-point subscripts in par- 
entheses to the right of the variable. 

EXAMPLES 

A(I) 
K(3) 

BETA (5* J-2, K-f2,L) 

The commas separating the subscripts are required 
punctuation. Note that subscript arithmetic may take 
place as shown in the third example above. For in- 
stance, if J is equal to 20, the first subscript will be 
98. (The symbol * denotes multiplication.) 

The value of a subscript (including the added or 
subtracted constant, if any) must be greater than 
zero and not greater than the corresponding array 
dimension. Each subscripted variable must have the 
size of its array (i.e., the maximum values which its 
subscripts can attain) specified in a dimension state- 
ment preceding the first appearance of the variable 
in the source program. 

Expressions 

An expression in Fortran language is any sequence 

of constants, variables (subscripted or not subscript- 
ed), and functions (explained later), separated by 



operation symbols, commas, and parentheses, which 
comply with the rules for constructing expressions. 
Expressions appear on the right-hand side of arith- 
metic statements. 

In arithmetic-type operations, the following opera- 
tion symbols are used: 

4" addition 

— subtraction 

* multiplication 

/ division 

** exponentiation (i.e., raising to 
a power) 

RULES FOR CONSTRUCTING EXPRESSIONS 

Since constants, variables, and subscripted variables 
may be fixed-point or floating-point quantities, ex- 
pressions may contain either fixed-point or floating- 
point quantities; however, the two types may appear 
in the same expression only in certain ways. (In the 
following description, no mention is made of the rules 
for using fixed-point and floating-point quantities in 
functions. These rules will be stated when functions 
are discussed and will be considered as addenda to 
the following rules. ) 

1. The simplest expression consists of a single con- 
stant, variable, or subscripted variable. If the 
quantity is an integer quantity, the expression 
is said to be in the fixed-point mode. If the 
quantity is a floating-point quantity, the expres- 
sion is said to be in the floating-point mode. 

EXAMPLES 



Expression Type of Quantity Mode of Expression 



3 


Fixed-Point 
constant 


Fixed Point 


3.0 


Floating-Point 
constant 


Floating Point 


I 


Fixed-Point 

variable 


Fixed Point 


A 


Floating-Point 
variable 


Floating Point 


I(J) 


Fixed-Point 
subscripted 
variable 


Fixed Point 


A(J) 


Floating-Point 
subscripted 
variable 


Floating Point 



In the last example, note that the subscript, which 
must be a fixed-point quantity, does not affect 
the mode of the expression. The mode of the 
expression is determined solely by the mode of 
the quantity itself. 
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2. Exponentiation of a quantity does not aflFect the 
mode of the quantity; however, a fixed-point 
quantity may not be given a floating-point ex- 
ponent. The following are valid: 

I** J Fixed Point 
A**I Floating Point 
A**B Floatingpoint 
The following is not valid: 

I** A (Violates the rule that a 

fixed-point quantity must not 
have a floating-point exponent ) 



Note: The expression A**B**C is not permitted. It 
must be written A**(B**C) or (A**B|)**C, 
whichever is intended. 



3. Quantities may be preceded by a + or a — or 
connected by any of the operators ( -)-, — , *, /, 
**) to form expressions, provided: 

a. No two operators appear consecutively. 

b. Quantities so connected are all of the same 
mode. (Exception: floating-point quantities 
may have fixed-point exponents.) 

The following are valid: 

-A-fB 
B-fC-D 

I/J 
K*L 

The following are not valid expressions: 

A-\ — B ( must be written as A-)- ( — B ) 
A+I ( variables are of different modes ) 
3J (must be written as 3 * J if multipli- 

cation is intended) 

4. The use of parentheses in forming expressions 
does not affect the mode of the expression. Thus, 
A, (A), and (((A))) are all floating-point 
expressions. 

5. Parentheses may be used to specify the order of 
operations in an expression. Where parentheses 
are omitted, the order is taken to be from left 
to right as follows: 



Order 

1 
2 
3 



Symbol 
«« 

* and / 
-f- and - 



Operation 

Exponentiation 
Multiplication and Division 
Addition and Subtraction 



For example, the expression 

A+B*C/D+E**F-G 



will be taken to mean 
B*C 



A+ 



D 



-f EF _ G 



Using parentheses, the expression could be written 

(A+B)*C/D+E**F-G 
which would be taken to mean 

(A-fB)*C 



D 



+EF-G 



A valid expression will be evaluated when the object 
program is executed. An invahd expression may re- 
sult in an error message from the Fortran ii-d pro- 
cessor or may result in inaccurate object program 
results. 



Arifhmetk Statements 



GENERAL FORM 



A = B 



where A is a variable (subscripted or not subscript- 
ed ) and B represents an expression. 



EXAMPLES 

Q - K-f 1 
A(I) = 2(1) + SINF (C(I)) 

The numerical calculations to be performed in the 
object program are defined by arithmetic statements. 
FORTRAN arithmetic statements closely resemble con- 
ventional arithmetic formulas. They contain a variable 
to be computed, followed by an equal ( = ) sign, fol- 
lowed by an arithmetic expression. In Fortran lan- 
guage, the equals sign means "is to be replaced by" 
rather than "is equivalent to." For example, the arith- 
metic statement 

Y = N - LIMIT (J-2) 

means that the value in the storage area assigned to 
Y is to be replaced by the value of N-LIMIT (J-2). 
The equal sign description can be emphasized more 
with the example of 



I+l 



which means that the variable I is to be replaced with 
its old value plus one. 
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The result of the expression is stored in fixed-point 
form if the variable on the left of the equals sign is a 
fixed-point variable, or in floating-point form if it is 
a floating-point variable. 

If the variable on the left is in fixed-point form and 
the expression on the right is in floating-point form, 
the result is first computed in floating-point, then 
truncated (the fractional value is dropped) and con- 
verted to a fixed-point number. Thus, if the result of 
an expression is 3.872, the fixed-point number stored 
is 3, not 4. Likewise, the statement 

J = A/B 

where the value of A is 7, 
and the value of B is 4, 
produces a result of 1. 

If the variable on the left is in floating-point form 
and the expression on the right is in fixed-point form, 
the expression will be computed in fixed-point and 
then converted to floating-point before it is stored as 
the new value of the variable. 

Example Meaning 

A = B Store the value of B in A. 

I ir: B Truncate B to an integer, convert to 

fixed point, and store in I. 
A = I Convert I to floating-point, and store 

in A. 

A =: 3.0*B Replace A with 3 times B. 

A — I*B Not permitted. The expression is mix- 

ed, i.e., contains both fixed-point 
and floating-point variables. 

A = 3 * B Not permitted. The expression is 
mixed. 



GENERAL FORM 



GO TO n 
where n is a statement number. 



EXAMPLES 



GO TO 1009 
GO TO 3 

A coding sample is shown below: 

C fOB COMMENT 



B = 7 



FORTRAN STATeMENT 



GO. 7,0. 6. 



C.=3..A/I. 



C.=.3.'x*.B. 



The GO TO statement transfers the program to state- 
ment 6 where the result 21 is obtained. 



Computed GO TO 

This statement also indicates the statement that is to 
be executed next. However, the statement number 
that the program is transferred to can be altered dur- 
ing the program. 



Control Statements 

The second class of Fortran ii-d statements is com- 
prised of control statements that enable the program- 
mer to state the flow of the program. Normally, state- 
ments may be thought of as being executed sequen- 
tially. That is, after one statement has been executed, 
the statement immediately following is executed. How- 
ever, it is often undesirable to proceed in this man- 
ner. The following descriptions discuss statements 
which may be used to alter the sequence of a program. 

GO TO Statement (Unconditional) 

This statement interrupts the sequential execution of 
statements, and specifies the number of the next state- 
ment to be performed. 



GENERAL FORM 

GO TO (ni, no, . . , n,„), i 



where Ui, n^ . . , n,,, are statement numbers and i is 
a non-subscripted fixed-point variable. 

The parentheses enclosing the statement numbers, 
the commas separating the statement numbers, and 
the comma following the right parenthesis are all re- 
quired punctuation. 

This command causes transfer of control to the 1st, 
2nd, 3rd, etc., statement in the list depending on 
whether the value of i is 1, 2, 3, etc. 

The variable i must never have a value greater than 
the number of items in the list. 
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EXAMPLES 



GENERAL FORM 



GOTO (3,4,5),L 



GO TO (4, 4, 5, 2), J 



Meaning 
,-If L is 1, transfer to 

statement 3. 
If L is 2, transfer to 

statement 4. 
If L is 3, transfer to 

statement 5, 
If J is i or 2, transfer 

to statement 4. 
If J is 3, transfer to 

statement 5. 
If J is 4, transfer to 
statement 2. 



Further examples of the Computed go to and the 
Unconditional go to statements are illustrated below: 



- C fOU COMMtNT 



|si»IlMlNt 

1 s 




FORTRAN STATEMENT 

/ to IS 20 35 30 3S 40 45 






1 .... 1 .... 1 .... 1 .... 1 .... 1 .... I .... 1 






A*.3.-i .... 1 1 .... r 1 






a=4 . 






c«5.. ..... 






^='.<^-. . . . 


... 7 




Ar»/r+,/ , . 






GO TJO a.0„ 20,3.0 ) . K , 














30 




r-A-s . . 






60 T,0 12 ....... . ......... ... . . 


20 




Er.A-,C 






60 W 1 , . 


10 




D' a-,c , . ... ..... ... 






GO m 1 . . . . . . 






•. 1 . .. ..1 .... 1 






1 .... 1 .... 1 .... 1 ... 1 .... 1 ......... 1 


. 12 




■ ' . - ' -1 .... 1 .... 1 .... i .... i .... 1 .... . 









In the example, D, E, F are computed in that order, 
and the program is transferred to statement 12. This 
is a simplified example and if these were the only 
computations in the program, the programmer would 
simply list the arithmetic statements to compute D, E, 
and F in any desired order without using the Com- 
puted GO TO statement. 

IF Statement 

This statement permits the programmer to change the 
sequence of the statement execution, depending upon 
the value of the arithmetic expression. 



IF (a)ni, n2, ng 

where a is an expression and ni, n2, ris are statement 
numbers. 

The expression must be enclosed in parentheses and 
the statement numbers must be separated by commas. 
The expression may be in either fixed or floating 
mode. 

Control is transferred to statement number Ui, n2, Ua 
depending on whether the value of a is less than, 
equal to, or greater than zero, respectively. 



EXAMPLE 



IF (A - B) 10, 5, 7 



which means "If the value of A minus B is less than 
zero, transfer to statement 10. If the value of A minus 
B is equal to zero, transfer to statement 5. If ... A 
minus B is greater than zero, transfer to statement 7." 

Suppose a value, X, is being computed. Whenever 
this value is negative or positive, it is desired to pro- 
ceed with the program. Whenever the value is zero, 
an error routine is to be followed. This may be coded 
as: 



- C FOR COMMENf 



* ^ NUMft£R ' 

1 5 




FORTRAN STATEMENT 

/ 10 15 20 25 30 35 40 45 






1 .... 1 .... 1 ......... 1 ......... 1 ... r 






X= (S,+ C/F*,»£)-z,/c , . 






If CX)iO,AO,10, , . , , , 


10 




*■ . - 1 - ■ ■ . 1 - ■ • 1 • • - 1 .... 1 .... 1 






*■-<-•-'■■-• 








40 




(£XHO/i ROUTINE) 

•■ - . 1 .... 1 ... 1 ... 1 ......... 1 









IF (SENSE SWITCH) Statement 

This statement permits the program to transfer to a 
particular statement depending on the setting of any 
one of the four Console Program Switches. 

GENERAL FORM 

IF (SENSE SWITCH i) ni, ns 

where i is the number of one of the Console Program 
Switches, and Ui, n2 are statement numbers. 

The parentheses enclosing the words sense switch, 
and the commas separating the statement numbers 
are required punctuation. 

The program transfers to the statement number Ux 
when the designated Program switch is on, or to the 
statement numbered n2 when it is off. 
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EXAMPLE 

IF (SENSE SWITCH 3) 14, 10 

which means, "If Sense Switch 3 is on, transfer to 
statement 14, otherwise transfer to statement 10." 

IF (OVERFLOW) Statement 

This statement permits the program to transfer to a 
particular statement depending on the on or off con- 
dition of the Arithmetic Overflow Check indicator. 

GENERAL FORM 

IF (OVERFLOW) ni, ng 

where ni and n2 are statement numbers. The paren- 
theses enclosing the word overflow, and the comma 
separating the statement numbers are required punc- 
tuation. 

The program transfers to the statement numbered 
ni if the Arithmetic Overflow indicator is on, or to the 
statement numbered n2 if it is off. When the indicator 
is on, it is turned off by the interrogation. 

example 

IF (OVERFLOW) 5, 21 

which means, "If the Arithmetic Overflow indicator is 
on, transfer to statement 5, otherwise transfer to state- 
ment 21." 

IF (EXPONENT CHECK) Statement 

This statement permits the program to transfer to a 
particular statement depending on the on or off con- 
dition of the Exponent Check indicator. 

general form 

IF (EXPONENT CHECK) ui, ug 

where Ui and n2 are statement numbers. The paren- 
theses enclosing the words exponent check, and the 
comma separating the statement numbers are required 
punctuation. The space between the words exponent 
and check is optional. 

The program transfers to the statement ni if the 
Exponent Check indicator is on, or to the statement 
numbered n.2 when it is off. When the indicator is on, 
it is turned off by the interrogation. 

example 

IF (EXPONENT CHECK) 7, 15 

which means, "If the Ejq)onent Check indicator is on, 
transfer to statement 7, otherwise transfer to state- 
ment 15." 



DO Statement 

general form 

DO n i = mi, m2 
or 

DO n i = mi, m2, ma 

where n is a statement number, i is a non-subscripted 
fixed-point variable, and mi, m2, and ms are either an 
unsigned fixed-point constant or a non-subscripted 
fixed-point variable. If rris is not stated, it is under- 
stood tohel. 

EXAMPLES 

DO 30 J = 1, 10 
DO 30 J = 1, K, 3 

The DO statement is a command to repeatedly exec- 
cuate the statements that follow, up to and including 
the statement with statement number n . , i.e., it forms 
a program loop. 

The statements are executed with i = mi the first 
time. For each succeeding execution, i is increased 
by ms. After the statements have been executed with 
i equal to m2 (or as near as possible without exceed- 
ing m2), control passes to the statement following the 
last statement in the range of the do. 

DO Range 

The range of a do is that set of statements which are 
executed repeatedly; i.e., it is the sequence of con- 
secutive statements immediately following the do, up 
to and including the statement numbered n. 

DO Index 

The index of a do statement is the fixed-point variable 
i, which is controlled by the do in such a way that its 
value begins at mi, and is increased each time by ms, 
up to, but not including the value which exceeds m2. 
Throughout the range, the i-value is available for 
computation, either as an ordinary fixed-point variable 
or as the variable of a subscript. After the last execu- 
tion of the range, the do is said to be "satisfied." 

Suppose for example, that control has reached 
statement 10 of the program: 



10 DO 11 I = 1, 10 

11 A (I) =1 * N (I) 
12... 
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The range of the do is statement 11, and the index 
is I. The DO sets I to 1 and control passes into the 
range. The value of 1 * N(l) is computed, converted 
to floating-point and stored in location A(l). Since 
statement 11 is the last statement in the range of the 
DO and the do is unsatisfied, I is increased to 2 and 
control returns to the beginning of the range, state- 
ment 11. The value of 2 * N(2) is then computed and 
stored in location A(2). The process continues until 
statement 11 has been executed with I = 10. Since 
the do is satisfied (mi = m2), control then passes to 
statement 12. 

DO'S Within DO's 

There may be other do statements among the state- 
ments in the range of a do. When this is so, the fol- 
lowing rule must be observed. 

If the range of a DO includes one or more other 
DO's, then all of the statements in the range of the 
latter must also he in the range of the former, 

A set of do's satisfying this rule is called a "nest of 
do's." This rule is illustrated in the drawing below. 
(Brackets are used to illustrate the range of a do). 



DO 



Permitted 



Not Permitted 



DO 



DO 



DO 



DO 



DO 



DO 



DO 




DO 

















Transfer of Control and DO's 

Transfers of control from and into the range of a do 
are subject to the following rule: 

No transfer is permitted into the range of any DO 
from outside ^s range. Thus, 1, 2, and 3 are allowable 
transfers in the drawing below, but 4, 5, and 6 are not. 

Preservation of Index Values. When control leaves 
the range of a do in the ordinary way (i.e., when 



DO 



the DO becomes satisfied and control passes on to 
the next statement after the range) the exit is said 
to be a normal exit. After a normal exit from a do 
occurs, the value of the index controlled by that do 
is not defined, and the index cannot be used again 
until it is redefined. However, if the exit occurs by 
virtue of a transfer out of the range, the current 
value of the index remains available for any sub- 
sequent use. If the exit occurs because of a transfer 
which is in the ranges of several do's, the current 
values of all the indexes controlled by those do's 
are preserved for any subsequent use. 

Exits. When a call statement (see call statement) 
is executed in the range of a do, care must be taken 
that the called subprogram does not alter the do 
index or indexing parameters. This applies as well 
when a Fortran function is called for in the range 
of a DO. 

Restrictions on Statements in the Range of a DO. 
A statement which redefines the value of the index 
or of any of the indexing parameters (m's) is the 
only type of statement not permitted in the range 
of a DO. In other words, the indexing of a do loop 
must be completely set before the range is entered. 
The first statement in the range of a do must not be 
a non-executable statement, such as end, continue, 
and FORMAT statements. Also a do loop cannot end 
with a transfer statement. 



CONTINUE Statement 

CONTINUE is a dummy statement which results in no 
instructions in the object program. It is most fre- 
quently used as the last statement in the range of a 
DO to provide a transfer address for if and go to 
statements that are intended to begin another repeti- 
tion of the DO loop. 
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EXAMPLE 

CONTINUE 

As an example of a program which requires a 
CONTINUE, consider the table search: 



10 DO 12 I = 1, 100 

IF (ARG-VALUE (I) ) 12, 20, 12 

12 CONTINUE 

13 ... 



exit occurs to the statement (13) following the 

CONTINUE. 

PAUSE Statement 

GENERAL FORM 

PAUSE or PAUSE n 
where n is an unsigned fixed-point constant. 

EXAMPLES 

PAUSE 
PAUSE 33333 



This program causes a scan of the 100-entry value 
table until it finds an entry that equals the value of 
the variable arc, whereupon it exits to statement 20 
with the value of I available for fixed point use; if no 
entry in the table equals the value of arc, a normal 



This statement halts the machine. Depressing the 
Start key causes the program to resume execution of 
the object program with the next statement. In a 
PAUSE n statement, where n is a 5-digit number within 
the range of valid 1620 addresses, the n can be dis- 
played on the 1620 console in OR-2. 
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CALL EXIT Statement 

This statement is used at the end of a Fortran pro- 
gram to return control to the Monitor Control Record 
Analyzer routine, 

EXAMPLE 

CALL EXIT 



STOP Statement 

GENERAL FORM 

STOP or STOP n 
where n is an unsigned fixed-point constant. 

EXAMPLES 

STOP 

STOP 33333 

When the object program is executed, the machine 
types STOP on the console typewriter, halts, and n can 
be displayed as it is for the pause n statement. De- 
pressing the Start key causes control to be returned 
to the Monitor Control Record Analyzer routine. 

END Statement 

GENERAL FORM 

END or END (Ii, I2, I3, I4, I5) 
where I is 0, 1, or 2. 

EXAMPLES 

END 

END (1, 2, 0, 1,1) 

This statement differs from the previous control state- 
ments in that it does not affect the flow of control in 
the object program being compiled. Its application is 
to the FORTRAN ii-D proccssor during compilation. An 
END statement will generate a halt and branch (to the 
Monitor Control Record Analyzer routine) in the 
object program. The statement end (Ii, I2, I3, L, I5) 
is acceptable; however, the I's specified are meaning- 
less in 1620 FORTRAN II-D. 

The END statement must be the last statement 
(physically) of the source program. 



Input/Oufpuf Statements 

Input statements are used to read data into core stor- 
age and output statements are used to print or punch 
or store data. The read, accept, accept tape, punch. 



PUNCH TAPE, PRINT, and TYPE Statements require the 
use of the format statement which is described under 
the section entitled specification statements. 

In addition to the statements listed above, the 
record and fetch statements also must include an 
ordered list of the quantities to be transmitted (see 
specifying lists of quantities) . 

All FORTRAN ii-D Input/Output Statements cause the 
object program to make use of the Supervisor I/O 
routine (see section entitled i/o routines under su- 
pervisor program). 

Specifying Lists of Quantities 

The input/output statements that call for transmission 
of data must include an ordered list of the quantities 
to be transmitted. The listed order must be the same 
as the order in which the words of information exist 
(for input), or the desired order for the output. 

The formation and meaning of a list is best de- 
scribed by an example. Assume that the value of K 
has been previously defined. 

A, B(3), (C(I), D(I, K), 1 = 1, 10) 
((E(I,J), I = 1, 10, 2), F(J, 3), J = 1, K) 

If this list is used with an output statement, the infor- 
mation will be written on the output medium in this 

order: 

A, B(3), C(l), D(l, K), C(2), D(2, K), . ., 
C(10), D(10, K), E(l, 1), E(3,l), . . . , E (9,1), 
F(l,3), 

E(l, 2),E(3, 2), ...,E(9, 2), F(2, 3), 
E(1,'k),E(3, K), ...,E(9, K),F(K, 3) 

Similarly, if this list is used with an input statement, 
the successive values, as they are read from the ex- 
ternal medium, are placed into core storage in the 
indicated order. The list reads from left to right with 
repetition for variables enclosed within parentheses. 
Only variables, not constants, may be listed. 

If such a list is used, the execution is exactly that 
of a DO loop. It is as though each opening parenthesis 
(except subscripting parentheses) were a do, with 
indexing given immediately before the matching clos- 
ing parenthesis, and with the do range extending up 
to that indexing information. The order of the above 
list can thus be considered the equivalent of the fol- 
lowing "program": 

1. OUTPUT A 

2. OUTPUT B (3) 

3. DO 5 I =r 1, 10 

4. OUTPUT C( I) 
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5. OUTPUT D( I, K) 

6. DO 9 J = 1, K 

7. DO 8 I = 1,10,2 

8. OUTPUT E (IJ) 

9. OUTPUT F (J, 3) 

Note that indexing information, as in do's, consists of 
three constants or fixed-point variables, and that the 
last of these may be omitted, in which case, it is 
assumed to be 1. 

For a list of the form K, A(K) or of the form K, 
(A(I), I = 1, K), where an index or indexing para- 
meter itself appears earlier in the list of an input state- 
ment, the indexing will be carried out with the newly 
read-in value. 



Input/Output in Matrix Form 

As outlined in a previous section, Fortran ii-d treats 
variables according to conventional matrix practice. 
Thus, the input/ output statement 

READ 1, ( ( A(I,J),I=:1,2),J=:1,3) 

causes the reading of I x J (in this case, 2x3) items 
of information. The data items are read into storage 
in the same order as they are found on the input 
medium. 



2. Element Lists 

An element list may consist of any one or more 
of the following types ( assume K previously 
defined). 

a. A 

b. B(l) 

c. C(1,K) 

d. (B(I),D(I, K),I = 1, 10) 

e. ( (E (I, J), I = 1, 10, 2), F ( J, 3), J =z I, K) 

3. The mode and order of lists must be the same 
for the reading and writing of the same data. 

Arrangement of Arrays in Storage 

Arrays are stored "column-wise," with the first of their 
subscripts varying most rapidly, and the last varying 
least rapidly. Arrays which are 1-dimensional are sim- 
ply stored sequentially. A 2-dimensional array named 
A would be stored sequentially in the order Aj j, 
Ag J, . . . , Aj^ J, Aj2, A^r,, . . ., Aj^j^. A 3-dimensional 
array named T would be stored in the order 

'^1,1,1' '^2,1,1' '^3,1,1' • • • ' '^M.l.l' '^1,2,1' • • • ' '^M.N.l' '^1,1,2' 

T 

^2.1,2' • • ' ' 

The storage of arrays is in ascending order, i.e., the 
elements are stored sequentially in locations with 
ascending addresses. 



input/output of entire matrices 

When input/output of an entire matrix is desired, 
an abbreviated notation may be used for the list of 
the input/output statement; only the name of the 
array need be given and the indexing information 
may be omitted. 

Thus, if A has previously been listed in a dimension 
statement, the statement, 

READ 1, A 

is sufficient to read in all the elements of the array. 
The elements of the array are stored in successively 
higher storage locations. (If A has not previously ap- 
peared in a DIMENSION statement, only the first ele- 
ment would be read in.) 

Lists for the record and fetch statements must be 
formed in the following manner: 
1. Matrix Lists 

If any item in the list is a matrix, all items in the 
list must be matrices. All matrices will start at 
the beginning of a record. Matrices written with 
a matrix list must be read with a matrix list. 



READ Statement 

The read statement is used to read data into core 
storage from the 1622 Card Read-Punch. 

GENERAL FORM 

READ n, List 

where n is the statement number of a FORMAT state- 
ment and List is a list of the quantities to be read. 

EXAMPLES 

READ 8, A, B, C 

READ 211, VOLT (I), OHM (J) 

The read statement causes data to be read from a 

card and causes the quantities from the card to be- 
come the values of the variables named in the list. 
Successive cards are read until the complete list has 
been "satisfied," i.e., all data items have been read, 
converted, and stored in the locations specified by the 
list of the read statement. The format statement to 
which the read refers, describes the arrangement of 
information on the cards and the type of conversion 
to be made. 



104 



ACCEPT TAPE Statement 

The ACCEPT TAPE Statement is used to cause data 
to be read into core storage from the 1621 Paper Tape 
Reader. 

GENERAL FORM 

ACCEPT TAPE n, List 

where n is the statement number of a FORMAT 
statement, and List is as described under input/ 

OUTPUT STATEMENTS. 
EXAMPLE 

ACCEPT TAPE 30, K, A (J) 

The ACCEPT TAPE statement causes the object program 
to read information from the paper tape reader. Rec- 
ord after record is brought in, in accordance with 
the FORMAT statement, until the complete list has 
been satisfied. 

ACCEPT Statement 

The ACCEPT statement is used to allow data to be 
read in from the console typewriter. 

GENERAL FORM 

ACCEPT n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 
statements. 

EXAMPLE 

ACCEPT 20, A, B, C, D (3) 

The ACCEPT statement causes the object program to 
return the carriage of the console typewriter to await 
the entrance of data. The information is entered in 
accordance with the format statement until the com- 
plete list has been satisfied. 

PUNCH Statement 

The PUNCH statement is used to cause data to be 
punched out in cards by the 1622 Card Read-Punch. 

GENERAL FORM 

PUNCH n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 

STATEMENTS. 



EXAMPLE 

PUNCH 40, ( A (J), J = 1, 10) 

The PUNCH statement causes the object program to 
punch cards in accordance with the format statement 
until the complete list has been satisfied. 

PRINT and TYPE Statements 

The PRINT statement and the type statement are 
used to type out data on the console typewriter. 
general form 

PRINT n, List 
TYPE n. List 

where n is the statement number of a FORMAT 
statement and List is as described under input/output 
statements. 

example 

PRINT 2, ( A (J), J 1, 10) 

The PRINT and type statements cause output data to 
be typed on the console typewriter. A carriage return 
occurs and successive lines are typed in accordance 
with the FORMAT statement, until the complete list 
has been satisfied. 

PUNCH TAPE Statement 

The punch tape statement is used to cause data to 
be punched by the 1624 paper tape punch, 

GENERAL FORM 

PUNCH TAPE n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 

STATEMENTS. 
EXAMPLE 

PUNCH TAPE 25, ( A (J), J = 1, 10) 

The punch tape statement causes information to be 
punched by the paper tape punch. 

Successive records are punched in accordance with 
the FORMAT statement until the complete list has been 
satisfied. 

FIND Statement 

This statement is used to position the disk access arm 
over a cylindey. 
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GENERAL FORM 

FIND (I) 

where I specifies the record number where reading or 
writing will start. The parameter I must be either: 

1. A nbnsubscripted fixed-point variable. 

EXAMPLE 

FIND (IMAX) 
or 

2. A subscripted fixed-point variable. 

EXAMPLE 

FIND (IMAX(3)) 

The FIND statement causes the disk access arm to be 
positioned over a cylinder which will subsequently 
be read from or written on. The find statement may 
precede a fetch or record statement that contains 
the same I parameter, and, in this manner, takes ad- 
vantage of additional processing time while the access 
arm is moving. 

The record numbers (I) start at 1, and correspond 
to every sector if one-sector records are specified in 
the DEFINE disk Statement; if two-sector records are 
specified, the record numbers correspond to every 
second sector. 

Only areas of disk storage within the area defined 
by a DEFINE DISK statement can be specified by a 
FIND. 

FETCH Statement 

This statement is used to read data from the 1311 
Disk Storage Drive. 

general form 

FETCH (I) List 

where I specifies the record number and List is as 
described under input/output statements. 

example 

FETCH (IMAX (3) ) (A (J), J = I, 10) 

The FETCH statement may be preceded by a find 
statement containing the same I parameter. When the 
FETCH statement is executed, a check is performed to 
determine if the access arm is positioned over the 
proper cylinder. If the access arm is properly position- 
ed, reading begins; if it is not, a seek is initiated 
(seek time is not available for computation). 

The data designated by the list is read from the 
record specified by ( I ) . If the list specifies more items 
than can be obtained from one record, then the value 



of (I) is incremented by one and reading proceeds 
from the next sequential record. This procedure con- 
tinues until either the list has been "satisfied," i.e., 
until the data for all the variables in the list has been 
read in, or until the end of the area specified by N2 
( see DEFINE disk ) has been reached. At the conclusion 
of a read operation, the value of I is one greater than 
the number of the last record read. The parameter 
(I) is the same as described for the find (I) state- 
ment. 

The compiled instructions for the fetch statement 
cause control to be transferred to the Monitor Input/ 
Output routine (see Supervisor section). 

RECORD Statement 

This statement is used to write data on the 1311 Disk 
Storage Drive. 

GENERAL FORM 

RECORD (I) List 
where I specifies the record number and List is as 
described under input/output statements. 

EXAMPLE 

RECORD (IMAX (3) ) (A (J), J = 1, 10) 

The RECORD statement may be preceded by a find 
statement containing the same I parameter. When the 
RECORD statement is executed, a check is performed 
to determine if the access arm is positioned over the 
proper cylinder. If the access arm is properly position- 
ed, writing begins; if it is not, a seek is initiated ( seek 
time is not available for computation). 

The data designated by the list is written in the 
record specified by ( I ) . If the list specifies more items 
than can be contained in one record, then the value 
of ( I ) is incremented by one and writing proceeds to 
the next sequential record. This procedure continues 
until either all items in the list have been written or 
until the end of the area specified by N2 (see define 
disk) has been reached. At the conclusion of a write 
operation, the value of I is one greater than the num- 
ber of the last record written. The parameter (I) is 
the same as described for the find (I) statement. 

The compiled instructions for the record statement 
cause control to be transferred to the Monitor Input/ 
Output routine (see Supervisor section). 

Specification Sfafements 

The specification statements supply necessary infor- 
mation to the FORTRAN proccssor, or information to in- 
crease program efficiency. No executable instructions 
are created in the object program for a specification 
statement. 



106 



Form C26-5774-0 

Page Revised 4/16/65 
By TNL N26-0111 



DIMENSION Statement 

The DIMENSION statement provides the information 
necessary to allocate storage for arrays in the object 
program. 

GENERAL FORM 

DIMENSION v, V, v, ... 

where each v is the name of a variable, subscripted 
with 1, 2, or 3 unsigned fixed-point constants. Any 
number of v's may be given. 

EXAMPLE 

\ 

DIMENSION A(10), B(5, 15), CVAL (3, 4, 5) 

Each variable which appears in subscripted form 
in a program or subprogram must appear in a dimen- 
sion statement of that program or subprogram; the 
dimension statement must precede the first appear- 
ance of that variable. The dimension statement Hsts 
the maximum dimensions of arrays; in the object pro- 
gram, references to these arrays must never exceed 
the specified dimensions. 

The above example indicates that B is a two-dimen- 
sional array for which the subscripts never exceed 5 
and 15. The dimension statement, therefore, causes 
75 (i.e., 5 x 15) fields to be set aside for the array B. 

A single dimension statement may specify the di- 
mensions of a number of arrays. The maximum num- 
ber is limited by the number of continuation cards 
permitted. A program must not contain a dimension 
statement which includes the name of the program it- 
self, or any program which it calls. If any of the sub- 
scripts in a dimension statement exceeds 9999, an 
error wiU be indicated. 



EQUIVALENCE Statement 

The equivalence statement provides one method of 
controlling the allocation of data storage in the object 
program. 

general form 
EQUIVALENCE (a, b, c, . . . ), (d, e, f , . . . ) , . . . 

where a, b, c, d, e, f, . . . are variables that may be 
subscripted with constants only. 

EXAMPLE 

EQUIVALENCE (A, B(1),C(5) ), ( D (17),E(3) ) 

When the logic of the program permits, the number 
of storage locations used can be reduced by causing 



locations to be shared by two or more variables. The 
EQUIVALENCE Statement should not be used to obtain 
mathematical equality between two or more elements. 
If fixed-point and floating-point variables are equiva- 
lenced, their word lengths must be the same, i.e., 
f + 2 must equal k. 

An EQUIVALENCE Statement may be placed anywhere 
in the source program, except as the first statement in 
the range of a do. Each pair of parentheses of the 
statement list encloses the names of two or more 
quantities which are to be stored in the same loca- 
tions during execution of the object program; any 
number of equivalences may be given. 

In an EQUIVALENCE statement, a term such as C(p) 
can be defined as p>0 to mean the pth location of 
the C array. For example, C(5) would be the fifth 
location in the C array. Note that in an equivalence 
statement a two- or three-dimensional array must be 
referenced by a linear subscript (a single subscript 
notation which denotes the element of an array re- 
gardless of how the array is dimensioned). If p is not 
specified, it is understood to be 1. 

Thus, the example indicates that the A, B, and C 
arrays are to be assigned storage locations such that 
the elements A(l), B{1), and C(5) are to occupy the 
same location. In addition, it specifies that D(17) and 
E(3) are to share the same location. 

Quantities or arrays which are not mentioned in an 
EQUIVALENCE Statement are assigned unique locations. 

COMMON Statement 

Variables, including arrays, appearing in common 
statements are assigned to specific storage locations. 
Storage is assigned separately for each program 
compiled. 

GENERAL FORM 

COMMON A, B ... 

where A, B . . . are the names of variables and non- 
subscripted array names. 

EXAMPLE 

COMMON X, ANGLE, MATA, MATB 

The COMMON storage area may be shared by a pro- 
gram and its subprograms. In this way, the common 
statement enables a data storage area to be shared 
between programs in a way analogous to that by 
which the equivalence statement permits data stor- 
age-sharing within a single program. Where the logic 
of the' programs permits, this can result in a large 
saving of storage space. 

Array names appearing in the common statement 
must previously have appeared in a dimension state- 
ment in the same program. 
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The COMMON storage area is located at the high end 
of core storage, starting with address 19999, 39999 or 
59999. Variables in a common statement are assigned 
storage locations in descending sequence. For ex- 
ample: 

COMMON A, B, C 

With / = 10, A, B, and C would be stored in locations 

19999, 19987, and 19975 and similarly for 40,000 or 
60,000 positions. If C is dimensioned as C(10), then 
19975 is the address of C(10), which is the last ele- 
ment in the array, and 19867 is the address of C(l). 

The COMMON statement takes precedence over the 
EQUIVALENCE Statement. Due to the complex interac- 
tion of these two statements, the programmer must 
adhere to the following two rules: 

1. Variables which are to be placed in common 
storage must be assigned prior to any EQravA- 
LENCE statement containing these variables. For 
example, 

COMMONA 

EQUIVALENCE (A, B, C) 

The order in which the variables appear in the 
EQUIVALENCE Statement is irrevelent and rule 1 
applies if tiie common variable is B or C. 

2. Within an equivalence list there may be no 
more than one variable which previously has 
been: 

a. equivalenced, or 

b. placed in common. 

The following sequence of statements is invalid: 

EQUIVALENCE (A, B, C) 
EQUIVALENCE ( X, Y, Z ) 
EQUIVALENCE (A,Z) Violates (a) above 
COMMON D 

EQU VALENCE (D, X, P) Violates combina- 
tion of (a) and 
(b) 

The sharing of storage locations desired in the 
above statements can be achieved by writing the 
statements as follows: 

COMMON D 

EQUIVALENCE (D, X, P) 
EQUIVALENCE ( A, B, C, X) 
EQUIVALENCE (X, Y, Z) 

or 

COMMON D 

EQUIVALENCE (D, A, P, B, C, X, Y, Z) 



A diagnostic error message results if either Rule 
1 or 2 is violated. 



Arguments in Common Storage 

COMMON statements may be used as a medium for 
transmitting arguments from the calling program to 
the called Fortran function or subroutine subpro- 
gram. In this way, they are implicitly, rather than 
explicitly transmitted as when listed in the parentheses 
following the subprogram name. 

To obtain implicit arguments, it is necessary to have 
only the corresponding variables in the two programs 
occupy the same location. This can be accomplished 
by having them occupy corresponding positions in 
common statements of the _ two programs. For ex- 
ample, (A, B, C) and (E, F, G) become implicit ar- 
guments when the calling program contains the state- 
ment COMMON A, B, C, and the called subroutine 
contains the statement common E, F, G. 
Notes: 

1. To force correspondence in storage locations be- 
tween two variables in diflFerent programs which 
otherwise would occupy different relative posi- 
tions in COMMON storage, it is valid to place 
dummy variable names in a common statement. 
These dummy names, which may be dimension- 
ed, will cause reservation of the space necessary 
to cause correspondence. 

2. While implicit arguments can take the place of 
all arguments in CALL-type subroutines, there 
must be at least one explicit argument in a 
FORTRAN function. Here, too, a dummy variable 
may be used for convenience. 

When one variable is equivalenced to a sec- 
ond variable which appears in a common state- 
ment, the first variable is also located in common 
storage. 



DEFINE DISK Statement 

The define disk statement specfies to the Fortran 
processor the size and quantity of data records that 
will be used with a particular prograni and its associ- 
ated subprograms. This statement must appear in the 
main program ( or link program ) and may appear only 
once iii that program, when Disk I/O statements ap- 
pear in any part of the program or subprograms. 
Thus, aU subprograms used by that main program or 
link program must use the same size record defined 
in the statement. 
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GENERAL FORM 

DEFINE DISK (Ni, N2) 

where the parameters Ni and N2 are defined as 
follows: 

Ni — a fixed-point constant which specifies the 
number of words contained in a record of data. 
The value chosen for Ni depends upon two 
things: (1) the word length (w) specified when 
the program was compiled, and (2) whether the 
user wants the length of a record of data to be 
one or two physical sectors. 

The value (Ni) is determined by following two rules: 
If w times (Ni) ^ 100, then the record length 
will be one disk sector. 

If w times (Ni) is more than 100 and ^ 200, 
then the record length will be two disk sectors. 

For example, assume that the word lengths specified 
at compile time were 8 for floating-point numbers (f) 
and 4 for fixed-point numbers (k). Since a record 
might contain all floating-point or all fixed-point num- 
bers (words), the larger of the two specified word 
lengths must be used to determine w. In this ex- 
ample, the floating-point length is the larger of the 
two word lengths; its total length is 10 (word length 
rr: / -|- 2). Therefore, if a data record is to be con- 
tained in one physical disk sector ( 100 disk locations ) , 
then Ni must be in the range of 1 to 10. An Ni of 10 
would be making the most efiicient use of the avail- 
able disk storage. In this example, if the length of a 
data record is to be two physical disk sectors, then 
Ni would be in the range of 11 to 20. A data record 
may not be greater than 2 sectors (200 digits). 

If arrays are read or written, the variables are not 
moved to a buffer area before going to or coming 
from the disk provided that both / and k are even in 
length. In this case, a group mark is placed at the 
end of the array before writing to disk. If 10-digit 
variables are used, the most efiicient use of the disk 
would be with arrays containing 9, 19, 29, 39, etc. 
variables, so that the group mark is placed in the 
same sector as the variables to be recorded. 

N2 — a fixed-point constant which specifies the num- 
ber of data records that will be used by this main 
program and its associated subprograms. N2 is used 
by the compiler to reserve a portion of the specified 
work cylinder area ( see define parameters routine 



in the disk utility program section of this man- 
ual) for the purpose of transferring data to and 
from disk storage. The number of sectors that the 
compiler will reserve depends upon the record 
length specified by Ni. If one-sector records are 
specified, then N2 sectors will be reserved; if two- 
sector records are specified, then 2 times N2 sectors 
will be reserved. 



FORMAT Statement 

The FORMAT statement is used to describe the format 
of data being transmitted to and from the typewriter, 
card, or paper tape units. 

general form 

FORMAT (si, . . , sn) 

where Si is a format specification. The format speci- 
fications must be separated by commas, slashes, or 
left parentheses. 

example 

FORMAT (12/ (E12.4, F10.4) ) 

The Input/Output statements, in addition to the 
list of quantities to be transmitted, contain the state- 
ment number of a format statement describing the 
information format to be used. The format statement 
also specifies the type of conversion to be performed 
between the internal machine language and the ex- 
ternal notation, format statements are not executable: 
their function is merely to supply information to the 
object program. Therefore they may be placed any- 
where in the source program ( except as the first state- 
ment in the range of a do). 

For the sake of clarity, examples given in this sec- 
tion are for typing on the console typewriter. How- 
ever, the description is valid for any input/output 
unit simply by generalizing the concept of "typewrit- 
ten line" to that of the unit record in the selected 
input/output unit. Thus, a unit record may be: 

1. A typewritten line with a maximum of 87 char- 
acters. 

2. A punched card with a maximum of 80 char- 
acters. 

3. A paper tape record with a maximum of 87 
characters. (The input record length may be 
variable up to 87; the output record length i.s 
fixed at 87.) 
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Numerical Fields 

Three forms of conversion for numerical data are 
available: 



FROM/TO 
INTERNAL 

Floating-point 
variable 

Floating-point 
variable 

Fixed-point 
variable 



TO/FROM 
TYPE EXTERNAL 

E Floating-point 

number with 

exponent 
F Floating-point 

number without 

exponent 
I Integer 



These types of conversion are specified in the forms: 

Ewd, Fw.d, and Iw. 

where w and d are unsigned fixed-point constants. 

Format specifications are used to describe the input 
and output format. The format is specified by giving, 
from left to right, beginning with the first character 
of the record; 

1. The control character (E, F, or I) for the field. 

2. The width (w) of the field. The value of w must 
be large enough to include the field d, plus 
spaces for a sign and the decimal point. In ad- 
dition, four spaces for the exponent are needed 
in E-type conversion. The width specified may 
be greater than required to provide for spacing 
between numbers. 

3. For E- and F-type conversions, the number of 
decimal positions (d) (of the field) which ap- 
pear to the right of the decimal point. 

Specifications for successive fields are separated by 
commas. No format specification should be given that 
provides for more characters than the input/output 
unit record. Thus, a format statement for typewriter 
output should not provide for more than 87 characters 
per line, including blanks. For example: the state- 
ment FORMAT (12, E12.4, F10.4) might cause the fol- 
lowing line to be typed: 



Alphameric Fields 

FORTRAN n-D providcs a method by which alphameric 
information may be read or written. 

The specification for this purpose, wH, is followed 
in the format statement by w alphameric characters. 
For example: 

24H THIS IS ALPHAMERIC DATA 

Note that blanks are considered alphameric characters 
and must be included as part of the count tv. 

Information handled with the H specification is not 
given a name and may not be referred to or manipu- 
lated in storage in any way. 

The eflFect of wH depends on whether it is used 
with input or output. 

1. Input, w characters are extracted from the input 
record and replace the w characters included 
with the specification. 

2. Output. The w characters following the speci- 
fication, or the characters which replaced them, 
are written as part of the output record. Blanks 
are not ignored in an H specification as they are 
elsewhere. 

For example: The statement format (3HXY = 
F8.3) could produce any of the foUovmig lines: 

XY = b-93.210 
XY rr: b999.999 
XY bb28.768 

Another alphameric specification, Aw, causes w 
alphameric characters to be read into or written from 
a variable or array name. Since each alphameric char- 
acter is represented in core storage by two decimal 
digits, w must be less than, or equal to, the largest 
whole number resulting from k/2 or //2, depending 
on whether the variable or array name is fixed or 
floating. If or / is odd, a zero will be supplied as the 
least significant digit for the field in core storage. To 
facilitate manipulation of alphameric fields which are 
stored as floating-point numbers, the numbers will 
have zero as an exponent. This will have no effect on 
input/output. However, if the first character in a field 
is a blank, decimal point, or close parenthesis, the 
field will be treated as zero in the floating-point arith- 
metic subroutines. 



12 



E12.4 



F10.4 



b7-92.3100E-i-00bbbb-.0076 



(In these examples, b is_iiicluded to indicate blank 
spaces.) 



Blank Fields 

Blank characters may be provided in an output rec- 
ord, and characters of an input record may be skip- 
ped, by means of the specifications wX where 0^ w ^ 
87 (w is the number of blanks provided or characters 
skipped). When the specification is used with an in- 



110 



put record, to characters are considered to be blank, 
regardless of what they actually are, and are skipped 
over. 



Repetition of Field Format 

It may be desired to print n successive fields within 
one record, in the same fashion. This may be speci- 
fied by giving n (where n is an unsigned fixed-point 
constant) before E, F, I, or A. Thus, flie statement 
FORMAT (12, 3E12.4) might result in: 

27 - 92.3100E + 00b75.8000E - 02b55.3600E - 02 



Repetition of Groups 

A limited parenthetical expression is permitted in or- 
der to enable repetition of data fields according to 
certain format specifications within a longer format 
statement specification. Thus, format (2(F10.6, 
E10.2), 14) is equivalent to format (F10.6, E10.2, 
F10.6, E10.2, 14). The number of repetitions is hmit- 
ed to a maximum of 99. 



Scale Factors 

The E-type specification implies a scale factor. There- 
fore, E16.8 for an output field will result in the print- 
ing or punching of a maximum of ten significant digits 
in the form (-)XX.XXXXXXXXE(-)XX. A maxi- 
mum of / digits can be placed to th,e right of the 
decimal point if the d specification is greater than /. 
In this case, d—f low-order zeros will be inserted to 
satisfy the d specification. The following guide may 
be used when working with E-type specifications. 

1. If / (floating-point precision) ^ w—6, then / 
significant digits will be printed or punched. 

2. If / >tt)— 6, then w~6 significant digits will be 
printed or punched. For example, if / = 10 and the 
floating-point number is stored as 123456789135, it 
will be printed as -12.34567891E-37, according to 
specification E16.8. 

The F-type specification also implies a scale factor. 
Therefore, F16.8 for an output field will result in the 
printing or punching of a maximum of fourteen sig- 
nificant digits in the form (-)XXXXXX.XXXXXXXX. 
However, a maximum of / digits will be placed to 
the right of the decimal point and the result will be 



right justified in the output field. If / is larger than 
to— 2, only w—2 digits will appear in the output. 

The X specification should be used to space fields 
in the E-type format. In the statement 

E16.8, IX, E16.8, IX, E16.8 

a space will be provided between adjacent fields. 

A field read according to the E-type format need 
not have the exponent E( — )XX; i.e., it may actually 
take the same form as the F-type format. 

The P-scale factor may be used in a specification 
but it will be ignored by the Fortran ii-d processor. 



Multiple Record Formats 

To deal with a block of more than one typewritten 
line, a format specification may have several differ- 
ent one-line formats, separated by a slash ( / ) to indi- 
cate the beginning of a new line. Thus, format 
(3F9.2, 2F10.4/8E14.5) specifies a multiline typewrit- 
ten block in which line 1 has format 3F9.2 and 2F10.4, 
and line 2 has format 8E14.5. 

If a multiple-line format is desired, such that the 
first two lines are typed according to a special format 
and all remaining lines are typed according to an- 
other format, the last line specification should be en- 
closed in a second pair of parentheses; e.g., format 
(12, 3E12.4/2F10.3, 3F9.4/(10F12.4) ). If data items 
remain to be transmitted after the last line format spe- 
cification has been completely satisfied, the format 
repeats from the last left parenthesis. 

As these examples show, both the slash and the 
closing parenthesis of the format statement indicate 
a termination of a record. 

Blank lines may be introduced into a multiline 
format statement by listing consecutive slashes. 



Format and Input/Output Statement Lists 

The format statement indicates, among other things, 
the maximum size of each record to be transmitted. In 
this connection it must be remembered that the 
FORMAT statement is used in conjunction with the list 
of some particular input/output statement, except 
when a format statement consists entirely of alpha- 
merjic fields. When the format statement is used 
with the list, control in the object program switches 
back and forth betwen the list ( which specifies wheth- 
er data remains to be transmitted) and the format 
statement (which gives the specifications for trans- 
mission of that data ) . 
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Automatic Fix/Float 

During execution of input/output statements, it is 
permissible to read a fixed-point argument into a 
floating-point field or a floating-point argument into 
a fixed-point field, and to write from a floating-point 
field in a fixed-point format or from a fixed-point field 
in floating-point format. During reading, the format 
specification dictates the data conversion, and the 
list designation controls the mode of storing the argu- 
ment. During writing, the format specification dic- 
tates the mode of the field printed or punched. 

Ending a Format Statement 

During input/output of data, the object program 
scans the format statement to which the relevant 
input/output statement refers. When a specification 
for a numerical field is found and list items remain to 
be transmitted, input/output takes place according 
to the specification, and scanning of the format state- 
ment resumes. If no items remain, transmission ceases 
and execution of that particular input/output state- 
ment is terminated. Thus, a numerical input/output 
operation will be brought to an end when a specifica- 
tion for a numerical field or the end of the format 
statement is encountered, and there are no items re- 
maining in the list. 

Data Input to the Object Program 

Input data to be read when the object program is ex- 
ecuted must be in essentially the same format as given 
in the previous examples. Thus, a card to be read ac- 
cording to format (12, E12.4, F10.4) might be 
punched: 

27b-0.9321Eb02bbb-0.0076 

Within each field, all information must appear at 
the extreme right. Plus signs may be omitted or in- 
dicated by a b (blank) or +• Blanks in numerical 
fields are regarded as zeros, but zeros may not be 
substituted for blanks. For example, a sign cannot 
be preceded by zeros. Numbers for E-type and F-type 
conversion may contain any number of digits, but only 
the high-order / digits are retained. Numbers for 
I-type conversion may not contain more than k sig- 
nificant digits. The concept of / and k is treated 
in this manual under constants, variables, subscripts, 
and expressions. 

To permit economy in punching, certain relaxations 
in input data format are permitted. 

1. Numbers of E-type conversion need not have 
four columns devoted to the exponent field. The 



start of the exponent field must be marked by an 
E, or if the E is omitted, by a + or — (not a 
blank). Thus E2, E02, +2, 02, Eb02, and E+02 
are all permissible exponent fields. Blanks are 
not permitted between characters in the expon- 
ent field except for the optional blanks which 
may replace a plus sign. 
2. Numbers for E-type or F-type conversion need 
not have their decimal points punched. If not 
punched, the format specification will supply 
them; for example, the number — 09321-}-2 with 
the specification E12.4 will be treated as though 
the decimal point has been punched between the 
0 and the 9. If the decimal point is punched in 
the card, its position overrides the indicated posi- 
tion in the format specification. 



Library Functions 

There are seven library functions (which are a part 
of 16 FORTRAN relocatable subroutines) included in 
the 1620 Monitor II system. These subroutines are 
selected for loading only when called for in the object 
program. The functions are: 



TYPE OF FUNCTION 
Logarithm (natural) 
Exponential 

Cosine of an angle given 

in radians 
Sine of an angle given 

in radians 
Arctangent of an angle 

given in radians 
Square Root 
Absolute Value 



FORTRAN NAME 

LOGF 

EXPF 

COSF 



SINE 

ATANF 

SQRTF 
ABSF 



The name of the library function is followed by the 

argument enclosed in parentheses. The argument can 
be a variable (subscripted or not subscripted), or an 
expression. 

exampues 

A =r COSF (B) 

A = SQRTF (BETA) 

Y = A - SINE (B* SQRTF (C) ) 

For the last example, the assembled instructions of 

the object program will: 

1. Branch to the square root subroutine to compute 
the value of C. 

2. Multiply the square root value of C (obtained 
in step 1 ) by B. 
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3. Branch to the sinf subroutine to compute the 
sine of the value obtained from step 2. 

4. Subtract the value computed so far from the 
variable A. 

5. Replace the present value of the variable Y with 
the value of the complete expression. 



Approximation Method and Estimated Errors 

Results of the library subroutines are truncated, and, 
in general, errors are no greater than one in the last 
digit of the mantissa. Approximation methods and 
errors for functional subroutines are described in 
greater detail in the following paragraphs. 

1. Logarithm. The natural logarithm of the frac- 
tional part of the positive argument is evaluated 
by using a power series expansion. The exponent 
of the argument is multiplied by In 10. The prod- 
uct is added to the logarithm of the fraction, and 
the sum is the logarithm of the argument. For 
an argument with its value A in the range 
.99 < 1.01, the leading digits of its logarithm 
will be zeros, and the result will contain less 
than f significant digits because of normalization. 
The maximum truncation error in the result is 
± 10-f. 

2. Exponential. The value of e^ where A is the 
value of the argument, is calculated by using a 
series approximation for 10"^. For [A| =: 
227.955924206. . . an exponent overflow will re- 
sult for A>0 or exponent underflow for A<0. 
The value of A is multiplied by log e and the 
product separated into an integer and a fraction- 
al part. The integer becomes the exponent of the 
result and the fractional part is used to produce 
its mantissa by series approximation. If A is 
greater than zero, the maximum error in the re- 
sult is ±5 X 10-^ 

3. Cosine-Sine. The cosine and sine functions of an 
argument with value A in radians are computed 
by using a series approximation for cosine A with 
sine A = cosine ( jr — A ) . The value A is re- 

2 

duced to within the range — tt ^ K ir. For 

2" 2 
arguments with exponents less than 03, the mag- 
nitude of the maximum truncation error in the 
mantissa of the result does not exceed 10~'. Ac- 
curacy in the mantissa of the result decreases as 
the size of the argument (exponent 03 or great- 
er) increases. 

4. Arctangent. The arctangent function of an argu- 
ment with value A is evaluated by using a series 



approximation. The result is given in radians. 
The maximum truncation error in the mantissa 
of the result is ±10^ except for results with an 
exponent less than or equal to —2. The maximum 
error for these results is ±1 in the (f-|-l) deci- 
mal place. 

5. Square Root. The square root is derived by the 
odd integer method. The result is accurate to 1 
in the last digit of the mantissa. 

6. A B. A» is evaluated as EXPF (B*LOGF 
( A ) ) . Three subroutines, logarithm, multiply, 
and exponential, are involved. An error in one 
of these subroutines may propagate other errors 
or increase the error in a succeeding subroutine. 
Normally, the magnitude of the error does not 
exceed 10^"' • 



Additional Library Functions 

Up to fourteen additional functions can be added to 
the library of subroutines. These functions are defined 
(written) in machine language or sps (see adding 

SUBROUTINES TO FORTRAN LIBRARY). 
GENERAL FORM 

NAME (A) 

where name is 1 to 6 alphabetic or numerical char- 
acters (no special characters) of which the first is 
alphabetic, and A is the argument enclosed in paren- 
theses. 

EXAMPLE 

TIME (A) 

The mode of the additional library function is deter- 
mined by its argument. 

EXAMPLE 

TIME (ABLE) Floating point 
TIME (LABEL) Fixed point 

Library functions can be called by means of an arith- 
metic expression that includes the name of the func- 
tion. The appearance of the name in the arithmetic 
expression serves to call the function; the value (a 
single numerical quantity) of the function is then 
computed, using the argument which is supplied in 
the parentheses following the function name. Only 
one value is produced by a given Library function. 
The mode of a Library subroutine is determined by 
its argument. 



FORTRAN II -D 113 



Form C26-5774-0 
Page Revised 1/20/64 
By TNL N26-0057 



EXAMPLES 

COS (A) Floating point 
COSH (I) Fixed point 

The relocatable Library subroutines supplied with the 
1620 FORTRAN n-D System, with the exception of Ab- 
solute Value Function (absf), will not accept fixed- 
point arguments. 



Arithmetic Statement Functions 

These functions are defined by a single Fortran ii-d 
arithmetic statement and apply only to the particular 
program in which they appear. They are named in 
the same manner as the Library functions: 

The name of the function consists of 1 to 6 alpha- 
betic or numerical characters (not special char- 
acters ) of which the first must be alphabetic. The 
name of the function is followed by parentheses 
enclosing the arguments, which are separated by 
commas. 

The function statement is defined as follows: 
general form 

NAME (ARC) = E 

where name is a function name followed by paren- 
theses enclosing its arguments (which must be 
non-subscripted variables) separated by commas, 
and E is an expression which does not involve 
subscripted variables. Any functions appearing in E 
must be available to the program or already defined 
by preceding arithmetic statements. The function 
names in the main program must agree with those de- 
fined in the arithmetic statements and function 
statements. 

EXAMPLES 

FRSTF (X) = A*X-f B 

SCNDF (X,B) rr: A*X-fB 

THRDF (D) = FRSTF(E)/D 

FRTHF (F, G) r= SCNDF (F, THRDF (G) ) 

FFTHF (I, A) =3.0«A**I 

SXTHF (J) = J + K 

As is the case with the Library functions, the ap- 
pearance of the name in the arithmetic statements 
serves to call the function. The value of the function 
(a single numerical quantity) is then computed, using 
the arguments which are supplied in the parentheses 
following the function name. Only one value is pro- 
duced by a given arithmetic statement function. 



In 1620 FORTRAN n-D, the mode of the value is de- 
termined by the function name, e.g., if the function 
name begins with I through N, the mode will be fixed 
point. 

The right-hand side of a function statement may be 
any expression not involving subscripted variables that 
meets the requirements specified for expressions. In 
particular, functions may be used freely, provided that 
any such functions, if it is not a Library function, has 
been defined in a preceding function statement. No 
function can be used as an argument of itself. 

As many as desired of the variables appearing in 
the expression on the right-hand side may be stated 
on the left-hand side as arguments of the function. 
Since the arguments are really only dummy variables, 
their names are unimportant (except insofar as they 
indicate fixed-point or floating-point mode) and they 
may even be the same as names appearing elsewhere 
in the program. 

Those variables on the right-hand side which are 
not stated as arguments are treated as parameters 
Thus, if FRSTF is defined in a function statement as 
FRSTF(X) = A*X+B then a later reference to 
FRTSF(Y) will cause ay-\-h, based on the current 
values of a, h, and y, to be computed. The naming of 
parameters, therefore, must follow the normal rules 
of uniqueness. 

A function defined by a function statement may be 
used in the same way as any other function. Its argu- 
ments may be expressions and may involve subscript- 
ed variables; thus, a reference to FRSTF (Z-f-Y(I)), 
as a result of the previous definition of FRSTF, will 
cause a(z + yi) + h to be computed on the basis of 
the current values of a, h, yi, and z. 

Functions defined by arithmetic statements are al- 
ways compiled as closed subroutines. 

All the arithmetic statements defining functions to 
be used in a program must precede the first execut- 
able statement of the program. 



FORTRAN Functions and 
Subprograms 


AAethod of 
Naming 


Method of 
Defining 


Method of 
Calling 


Library (closed) function 
Arithmetic Statement function 
FUNCTION subprogram 
SUBROUTINE subprogram 


Same 
\ fbr 
four 


Individual 
Individual 

Some 
•■ for 
two 


Same 
Y for 
three 

J 

Individual 
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Dummy Variables within an Arithmetic 
Statement Function 

A variable appearing as a dummy argument within an 
arithmetic statement function must not previously 
have been defined except as a dummy argument in a 
previous arithmetic statement function. After the vari- 
able is used as a dummy argument, it may appear 
elsewhere in the prograni. 

Subprogram Sfafemenfs 

Subroutines which are referred to by other Fortran 
n-D programs can be written as subprograms in the 
FORTRAN ii-D language. A subroutine is considered to 
be any sequence of instructions that performs a de- 
sired operation. A subprogram is defined as a program 
written in Fortran language that is referred to or 
used by another Fortran source program. 

Two types of Fortran ii-d coded subprograms are 
available: the function subprogram and the subrou- 
tine subprogram. Four statements, subroutine, func- 
tion, CALL, and return, are necessary for their defini- 
tion and use. 

Although function subprograms and subroutine 
subprograms are treated together and may be viewed 
as similar, it must be remembered that they diflFer in 
two fundamental respects: ^ 

1. The function subprogram, which results in a j 
FORTAN function, as defined under functions, is 
always single-valued, whereas the subroutine 
subprogram may be multivalued. — 

2. The function subprogram is called or referred 
to by the arithmetic expression containing its 
name; the subroutine subprogram can only be 
referred to by a call statement (see call state- 
ment). 

Subprograms of each of these two types are coded 
in FORTRAN ii-D language. In all respects, they con- 
form to the rules for Fortran programming. 

FUNCTION Statement 

The function statement, always first in a function 
subprogram, defines it as a Fortran function sub- 
program. 

GENERAL FORM 

FUNCTION Name (a„ a^, . . . , an) 

where Name is the symbolic name of a single-valued 

function, and each argument a,, a.2, ■ • ■ , 3-n, of which 
there must be at least one, is a nonsubscripted variable 
name. 



The function name consists of 1 to 6 alphabetic or 
numerical characters, the first of which must be al- 
phabetic. 

EXAMPLES 

FUNCTION ARCSN (RADS) 
FUNCTION ROOT (B, A, C) 
FUNCTION INTRT (RATE, YEARS) 

In a FUNCTION subprogram, the name of the func- 
tion must appear either in an input statement list, or 
at least once as the variable on the left-hand side of 
an arithmetic statement. An example of the latter is: 

FUNCTION NAME (A, B) 



NAME=Z+B 



RETURN 

The value of the function is returned to the calling 
program. The mode of a function subprogram is de- 
termined by its name. 

EXAMPLES 

FUNCTION AMAST (A, K) Floating point 
FUNCTION lAMAST (A, K) Fixed point 

The arguments following the name in the function 
statement may be considered as "dummy" variable 
names, that is, during object program execution other 
actual arguments are subsituted for them. Therefore, 
the arguments which follow the function reference in 
the calling program must agree in number, order, and 
mode with those in the function statement in the 
subprogram. Furthermore, when a dummy argument 
is an array name, the corresponding actual argument 
must also be an array name. Each of these artay 
names must appear in similar dimension statements 
within its respective program. None of the dummy 
variables may appear in EQUIVALENCE statements 
in the FUNCTION subprogram. 

SUBROUTINE Statement 

GENERAL FORM 

SUBROUTINE Name (a^, a^, . . . , a„) 
where Name is the symbolic name of a subprogram, 
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and each argument, ai, a2, . . , an, if any, is a non- 
subscripted variable name. The name of the subpro- 
gram consists of 1 to 6 alphabetic or numerical char- 
acters, the first of which must be alphabetic. 

EXAMPLES 

SUBROUTINE MATMP (A, N, M, B, L, C) 
SUBROUTINE QDRT (B, A, C, ROOT 1, ROOT 2) 

The SUBROUTINE statement, always first in a subrou- 
tine subprogram, defines it as a subroutine subpro- 
gram. A subprogram introduced by the subroutine 
statement must be a Fortran program and may con- 
tain any Fortran ii-d statements except function, 
DEFINE DISK, or another subroutine statement. 

A subroutine subprogram must be referred to by 
a CALL statement in the calling program. The call 
statement specifies the name of the subprogram and 
its arguments. 

Unlike the function subprogram which results in 
the calculation of only a single numerical value, the 
subroutine subprogram uses one or more of its argu- 
ments to return results. Therefore, the arguments so 
used must appear on the left side of an arithmetic 
statement in the subprogram (or alternately, in an 
input statement list within the subprogram). 

The arguments of the subroutine statements are 
dummy names that are replaced, at the time of execu- 
tion, by the actual arguments supplied in the call 
statement. There must, therefore, be correspondence 
in number, order, and mode, between the two sets 
of arguments. Furthermore, when a dummy argument 
is an array name, the corresponding actual argument 
must also be an array name. Each of these array 
names must appear in similar dimension statements 
within its respective program. 

For example, the subprogram headed by 

SUBROUTINE MATMP (A, N, M, B, L, C) 

could be called by the main program through the 
CALL statement 

CALL MATMP (X, 5, 10, Y, 7, Z) 

where the dummy variables, A, B, C, are the names 
of matrices. A, B, C must appear in a dimension 
statement in subprogram MATMP, and X, Y, Z must 
appear in a dimension statement in the calling pro- 
gram. The dimensions assigned must be the same in 
both statements. 

None of the dummy variables may appear in 
EQUIVALENCE Statements in the subroutine subpro- 
programs. These subprograms may be independently 



compiled or used in a multiple compilation with 
others. 



CALL Statement 

The CALL statement refers only to the subroutine sub- 
program, whereas the return statement is used by 
both the function and subroutine subprograms. 

GENERAL FORM 

CALL Name ( a, , a-i, . . . , an ) 

where Name is the name of a subroutine subprogram, 
and ai, a2, . . . , an are arguments. 

EXAMPLES 

CALL MATMP (X, 5, 10, Y, 7, Z) 

CALL QDRT (P*9.732, Q/4.536, R-S**2.0, XI, X2) 

This statement is used to call subroutine subpro- 
grams; the call transfers control to the subprogram 
and presents it with the parenthesized arguments. 
Each argument may be one of the following types: 

1. Fixed-point constant. 

2. Floating-point constant. 

3. Fixed-point variable, with or without subscripts. 

4. Floating-point variable, with or without sub- 
scripts. 

5. Arithmetic expression. 

The arguments presented by the call statement 
must agree in number, order, mode, and array size 
with the corresponding arguments in the subroutine 
statement of the called subprogram, and none of the 
arguments may have the same name as the subrou- 
tine subprogram being called. 



RETURN Statement 

example 

RETURN 

This statement terminates any subprogram of the 
type headed by either a subroutine or a function 
statement, and returns control to the calling program. 
A return statement must, therefore, be the last exe- 
cuted statement of the subprogram. It need not be 
the last statement of the subprogram physically, but 
can be any point reached by a path' of control. Any 
number of RETURN statements may be used. 
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CALL LINK Statement 

This statement is used to call a new program from 
disk storage and transfer to the first executable state- 
ment in that program. 

GENERAL FORM 

CALL LINK (NAME) 

where name is tiie name of a Fortran program as 
contained in the Equivalence table. The program 
name must be formed with one to six alphabetic or 
numerical characters (no special characters) of which 
the first is alphabetic. 

EXAMPLES 

CALL LINK (JOE) 
CALL LINK (PROG18) 

The CALL LINK statement is used to call another pro- 
gram into core storage. The program that is called will 
cause all subprograms and Hbrary subroutines that 
it references to be read into core storage (the arith- 
metic and I/O subroutines are also reloaded). Any 
program called by using the call link statement must 
be in disk storage or it is assumed that the "Hnk" pro- 
gram is the first mainline program encountered by 
the system input unit. If the logic of the program 
allows one of several links to possibly be called, it 
is necessary that the link programs be on disk storage. 
If a subprogram is not available (in disk storage) 
that the "link" program references, the Fortran load- 
er will request that the missing subprogram be load- 
ed into core from cards or paper tape. 

Only 50 links that call local subprograms can ap- 
pear in any one Fortran job. 

The common area is not destroyed during the 
loading of the link programs. If the size of common 
difiFers (between the calling program and the link pro- 
gram being called), die common area size will be the 
size defined for the new program. 

FORTRAN ll-D Processor 

The 1620 Fortran h-d Processor program is used to 
change a user-written Fortran source program into 
an object program of 1620 machine language instruc- 
tions. All programs are compiled in relocatable for- 
mat, i.e., the program instruction addresses are com- 
piled relative to a starting address of 00000. The in- 
struction addresses must be modified before execution 
can take place. 

The processor operates under control of the Moni- 
tor Supervisor program. It can be called into opera- 
tion only by use of the for or forx Monitor Control 
records. 



The Monitor II system permits the following For- 
tran operations; 

1. FORTRAN source program compilation. 

2. FORTRAN source program compilation and imme- 
diate execution of the compiled program. From 
the programmer's point of view, this is equiva- 
lent to entering a source program into the ma- 
chine as an object program. 

3. Object programs may be placed in disk storage 
after compilation and/or they may be punched 
in cards or paper tape. 

4. Execution of Fortran object programs that are 
in disk storage or are in cards or paper tape. 

5. Execution of programs in "links," a procedure 
necessary where the total program is too large 
to fit into core storage at one time. A 'link" is a 
section of the total program (see call link 
statement). 



General Compilafion Process 

Although the process of compiling an object program 
is a continuous one, there are two phases through 
which the soxirce statements pass before an object 
program is compiled. The user enters the source state- 
ments using cards, paper tape, or typewriter input 
and obtains output in. cards, paper tape, or on die 
typewriter or disk storage. The input and output 
units are selected by the use of control records. The 
object program may be placed permanendy on disk 
and it may be punched out in eidier paper tape or 
cards. 

The source statements are analyzed during Phase 
I and broken apart into instruction generating ele- 
ments that are strings of 5-digit codes. These strings 
are then written on disk storage for use by Phase II, 
which outputs the 1620 coding in relocatable format. 
Errors are indicated on the console typewriter as 
they are detected. The final output of any compilation 
is a single program or subprogram. Unless this pro- 
gram is an independent entity, capable of being 
executed without other programs or library functions, 
the user will need to load the other programs before 
execution can take place. To initiate the loading 
process, the user may (1) call the compiler with a 
forx Control record, or (2) call the compiled pro- 
gram using an xeqs Control record (see monitor n 
control records), a program loaded by means of a 
FORX or XEQS Control record will also have all associ- 
ated subroutines and subprograms loaded widi it. 
(All associated subprograms are loaded except diose 
defined as *load-on-caIl"; see local control record). 
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The arrangement for stacked input to process a 
source program is shown in Figure 14. the for or 
FORX Monitor Control record is followed by optional 
FORTRAN Control records, followed by the source pro- 
gram. The inclusion of a paus Monitor Control record 
will allow the operator to set the Console Program 
switches to the desired position (options for Program 
switches are shown in Table 9.) After setting the 
switches, the operator depresses start and the Super- 
visor reads the for or forx record, the Fortran Con- 
trol records, if any, and begins compilation of the 
source program. 

During Phase I (reading the source program and 
creating instruction generating elements, the Phase 

I source program errors that are listed in Table 10 may 
be detected. The Phase I errors are of two types: 
Type I, compilation continues, but outputting of 
intermediate output is stopped; Type II, compilation 
and outputting both continue. 

When all source statements have been read and the 
instruction generating elements entered in the tempor- 
ary storage area. Phase II of the processor takes con- 
trol. If the program uses subscripts. Phase II uses in- 
dex registers in the generated instructions to save 
subscript calculations for reuse when possible. Phase 

II converts the Phase I instruction codes into machine 
language instructions and places the instructions in a 
temporary disk storage area. In-line instructions such 
as FADD are generated wherever possible. When all 
intermediate output is processed, a message denoting 
the end of compilation is printed. Depending on the 
FORTRAN Control records loaded with the source pro- 
gram, any of the following options can occur: 



t ^ 4: « (End of job) 



Source Program 



** FOR 



*+ PAUS 



** JOB 




FORTRAN II - D 

Control Records 
/ 



MONITOR 
Control Records 



1. Control is returned to the Supervisor. Control 
records for output were not used; compilation 
was apparently for editing only of source pro- 
gram. 

2. Object program is loaded to permanent area of 
disk storage and/or outputted in cards or pap«r 
tape. 

3. Object program is executed using data from 
input unit or disk storage. 

The compiled object program contains a header 
record which specifies various parameters and infor- 
mation needed when it is to be loaded for execution, 
such the program name, length of the program, / 
and k, Fortran program constant, and indicators to 
specify the Library subroutines used. 

Subprogram identification records, consisting of 18 
digits of name and address information, are created 
for each subprogram called by a program. Up to 100 
subprograms may be used with any one Fortran main 
program or Link program. 



FORTRAN lI'D Control Records 

The FORTRAN Compiler can utilize four control records 
that specify output options, etc. When they are used, 
these records may be in any order but they must be 
read in between the for or forx Control record and 
the source program statements as shown in Figure 15. 

The FORTRAN Control records must have an asterisk 
in column 1 and the Name must be punched begin- 
ning in column 2. If a control record (* in column 
1) is read and is not a legally named record, the 
message shown below is typed and the program halts. 

ERROR, INVALID CONTROL RECORD 

The operator must correct the invahd record in 
the input unit and depress start. 

The prescribed format and specific function of each 
control record is described below. 

FANDK, The Fortran n-c Compiler, as delivered 
to the user, will process an object program with a 
floating-point word length of 10 digits (/ of 08 + 
2=10) and a fixed-point word length of 4 digits. The 
operator may vary these lengths, at compilation time, 
by using the fandk control record. The format of the 
FANDK Control record is as follows: 



Columns 



1-6 
7-8 
9-10 
11-80 



* FANDK 

ff 
kk 

not used 



Figure 14. Typical Stacked Input for FORTRAN Compilation 



where is the floating-point mantissa length and Jdc 
is the fixed-point word length. 
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FORTRAN Source Program 



* FANDK 
(Define f and k) 



* L DISK 

(Load Object- Program to Disk) 



* POBJP 

(Punch Object Program) 



* PSTSN 

(Punch Symbol Table & Statement No.) 



FOR or FORX 
Monitor Control Record 




Optional 



Figure 15. FORTRAN II-D Control Records 



If entry is from the console typewriter, the same 
format must be followed. 

The range of / is 2 through 28, of k, 4 through 10. 
If / or fc is out of the prescribed range, the following 
message is typed: 

ERROR, F OR K OUTSIDE RANGE 

PSTSN. This control record causes the sjnmbol table 
and addresses of numbered statements to be punched. 
The format is as follows: 



Columns 1-6 
7 

8-80 



*PSTSN 
n 

not used 



where n is 2 if paper tape output is desired or 4 for 
card output. See Note below. 

POBJP. The POBJP Control record causes the object 
program to be punched following compilation. The 
format is as follows: 

Columns 1-6 •POBJP 
7 n 
8-80 not used 

where n is the same as for the pstsn Control record. 

The format of the processor output (object pro- 
gram) is given under loader routene of the super- 
visor section of this publication. 

Note: If n is not 2 or 4 in the pstsn or pobjp Control 
records, the following message is typed out on the 
console typewriter, and the program halts. 

ERROR, INVALID OUTPUT UNIT CODE 
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The operator must correct the record that contains 
the error and depress the 1620 Start key. 

LDISK. The ldisk Control record causes the object 
program to be moved to a permanent area of disk 
storage following compilation. The format for tlie 
LDISK control statement is: 



Columns 1-6 
7-12 
13-16 
17-80 



*LDISK 

Name (optional) 
Number (optional) 
not used 



where Name is the left-justified program name, and 
Number is a 4-digit dim entry number not already 
in use. If a dim entry number is not supplied, the Disk 
Utility Program will assign one. 

After compilation, the Disk Utility Program will 
load the programs to disk and create a dim entry for 
the program. At that time, the Name supplied (in the 
ldisk record) will be placed in the Monitor Equiva- 
lence table. It is not necessary to supply the name 
of a function or subroutine subprogram. The name 
used in the function or subroutine statement is the 
name placed in the Equivalence table. 

Entering the Source Program 

The source program can be entered in the form of a 
punched paper tape, a deck of punched cards, or a list 
of statements to be typed in at the console typewriter. 
This entry option is specified in the for or fork Moni- 
tor Control record. 

operating procedures 

All of the following operations may be performed be- 
fore the processor is called, except possibly items 1 
and 3. If the operation taking place just prior to the 
compilation of a source program required the Console 
Program switches to be set difiEerently than the desired 
settings for compiling a Monitor paus Control record 
should have been inserted before the for or forx 
record. This will allow time for the operator to change 
the switches. 

The operations required to process a source pro- 
gram are as follows: 

1. Set the Console Program switches for the desired 
compilation operations (see Table 9). 

2. Set all check switches to program. 

3. If punching is to take place, ready the paper 
tape punch with feed code leader or, ready die 
card punch by loading blank cards and depress- 
ing the Punch Start key. 

4. Place a for or forx Control record in the input 
unit (see the Monitor II Control Records section 
for format). 
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Table 9. Program Switch Settings for FORTRAN II-D 



SWITCH 


ON 


OFF 


1 


Source statement's are typed 
on the console typewriter 
as they are processed. 

Source statement errors 
are typed in the form 
ERROR n.* 

At the end of Phase 1, 
symbol table and statement 
numbers are typed out. 


Source statements are not 
listed 

Source statement errors 
are typed in the form SSSS 
and CCGC ERROR n.* 

Symbol table and statement 
numbers are not typed out. 


2 


Trace instructions for 
arithmetic statements ore 
compiled but no additional 
instructions are Q^neroted. 


Trace instructions for 
arithmetic statements are 
not compiled. 


3 


A trace instruction is com- 
piled to trace the value of 
the expression generated 
in an IF statement. An 
additional instruction is 
generated in the object 
program for every IF state- 
ment. 


Trace instructions for IF 
statements are not com- 
piled. 


4 


Errors mode while typing 
source statements can be 
corrected by 

a, turning on switch 4 

b, pressing the Release 
and Start keys, 

At the end of Phase 1, the 
address of the first 
instruction generated for 
each statement is typed. 
(Switch 1 must also be on). 


c. turning off switch 4, 

d. retyping statement. 

Address of first instruction 
for each statement is not 
typed. 



*See description under Phase 1 Errors. 



5. Place any desired Fortran Control records in the 
input unit (see Fortran n-D control records). 

6. Place the source program statements in the input 
unit (specified in the for or forx record). 

To resume machine operation, if die machine was 
stopped to allow the operator to perform any of the 
above operations, depress the Start key. 

Typetmiter Input. If source statements are entered 
by way of the console typewriter, each statement 
must be terminated with a record mark. After a state- 
ment is typed, the operator must depress the R-S key 
to process that statement. As soon as a statement is 
processed, the carriage returns to await entry of the 
next statement. A statement of up to 330 characters 
may be typed with no intervening punctuation, spac- 
ing, etc. 

Normally card format need not be followed, how- 
ever, in a comment statement the C must be followed 
by at least two blanks (spaces) before the comment 
is typed. 



Phase I Errors 

During Phase I of compilation, a number of tests are 
made for source program errors. If an error is found 
in a source statement and Program Switch 1 is on, a 
message in the form 

ERROR n 

is typed, where n is the error code (see Table 10). If 
switch 1 is oflF, the error message is in the form 

SSSS + CCCC ERROR n 

where ssss is the last statement ntimber encountered 
by the program prior to the error, and cccc is the 
number of statements following the last numbered 
statement, ssss + cccc is the statement that contains 
the error. For example, the message 

0509 + 0012 ERROR 1 

means that the twelfth statement following the state- 
ment numbered 509 is incorrect. If an error occurs 
before a statement number is encountered, ssss will 
be 0000. Errors detected after processing the end 
statement reference the end statement. Comment 
cards, blank cards, and continuation cards are not 
included in the statement count. 

If any Type I errors (see Table 10) are found during 
Phase I, no attempt is made to process the source 
program through Phase II. At the completion of Phase 
I, control is returned to the Monitor Supervisor pro- 
gram (Monitor Control Record Analyzer routine). 

If a Type II error is found (other than Error 60), 
compilation continues on through Phase 11. However, 
any Fortran Control records specifying ou^ut that 
were included with the source program will be dis- 
regarded and control will transfer to the Supervisor 
program at the completion of Phase II. If Error 60 
is encountered, normal processing is continued since 
Ni and N2 can be corrected when loading the object 
program (see sudroutine error checks). 

Phase II Errors 

During processing of the intermediate output, cer- 
tain checks are performed which were impossible to 
perform during Phase I. If an error is detected, an 
error message in one of the following forms is typed: 

SSSS+CCCC SYMBOL TABLE FULL 
SSSS+CCCC IMPROPER DO NESTING 
SSSS+CCCC DO TABLE FULL 
SSSS+CCCC MIXED MODE 
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Table 10. FORTRAN Phase I Source Program Errors 

TYPE 1: Compilation continues but outputtipg of intermediate output is stopped. Only one error of this type is detected in any one statement. 



Error No. 


Condition 


1 


Undeterminable, misspelled, or incorrectly 
formed statement. 


2 


Syntax error in a nonori thmetic statement 
(exception: DO statements). 


3 


Dimensioned variable used improperly, 
i.e., without subscripting, or subscripting 
appears on a variable not previously 
dimensioned . 


4 


Symbol table full (processing moy not be 
continued) . 


5 


Incorrect subscript. 


6 


Same statement number assigned to more 
than one statement. 


7 


Control tronsfenred to FORMAT statement. 


8 


Variable name greater than 6 alphameric 
characters. 


9 


Variable name used both as a nondimensioned 
variable name and as a Subroutine or Function 
name. 


10 


Invalid variable w^ithin an EQUIVALENCE 
statement. 


11 


Subroutine or Function name or dummy var- 
iable used in on EQUIVALENCE state- 
ment (subprogram only). 


)2 


k not equal to f + 2 for equivalence of 
fixed point to floating point variables. 


13 


Within on Equivalence list, placement of 
two variables previously in Common, or one 
variable previously equivolenced and 
another either equivolenced or placed in 
Common . 


14 


Sense Switch number missing in an IF 
(Sense Switch n) statement. 


15 


Statement number or numbers missing, 
not separated by commos, or^nonnumerical 
in a transfer statement. 


16 


Index of a computed GO TO missing, 
invalid, or not preceded by a comma. 


17 


Fixed point number greater than k digits. 


18 


Invalid floating point number. 


19 


Incorrect subscripting within a DIMENSION 
statement. 


20 


First character of a name not alphabetic. 


21 


Variable within a DIMENSION statement 
previously used as o nondimensioned 
variable, or previously dimensioned or 
used as o Subroutine or Function name.. 


TYPE 2: Compilation of intermediate output continues. 


Error No. 


Condition 


51 


DO loop ended with a transfer statement. 


52 


No statement number for next executable 
statement following a transfer statement. 


53 


Improperly ended nonorithmetic statement. 


54 


Unnumbered CONTINUE statement. 


55 


Number of Common addresses assigned in 
excess of storage capacity because of 
Equivalence, See note at end of Table. 


56 


Statement number or subscript greater than 
9999 (only first 4 significant digits are retained). 



Error No. 


Condition 


22 


Dimensioned variable used within on 
arithmetic statement function. 


23 


More than four continuation cords. 


24 


Statement number in a DO statement 
appeared on a previous statement. 


25 


Syntax error in a DO statement. 


26 


FORMAT number missing in an input/ 
output statement. 


27 


Statement number in on input/output 
statement appeared previously on a state- 
ment other than a FORMAT statement, or 
a number on a FORMAT statement appeared 
in other than an input/output statement. 


28 


invalid list element. 


29 


Syntax error in CALL statement, or an 
invalid argument. 


30 


SUBROUTINE or FUNCTION statement 
not the first statement in a subprogram. 


31 


Syntax error or invalid parameter in a 
SUBROUTINE or FUNCTION statement. 


32 


Syntax error or invalid variable in a 
COMMON statement. 


33 


Variable in o Common list previously 

placed in Common or previously equivolenced. 


34 


of on equal sign or in a COMMON, 
EQUIVALENCE, DIMENSION, or input/ 
output statement; or function name not 
followed by a left parenthesis. 


35 


Syntax en-or in FORMAT statement, or 
invalid FORMAT specifications. 


36 


Invalid expression to the left of an equal 
sign in on arithmetic expression. 


37 


Arithmetic statement function preceded 
by the firet executable statement. 


38 


ment, or invalid expression to the right of 
an equal sign In an arithmetic statement. 


39 


Unbalanced parenthesis. 


40 


Invalid argument used in calling on 
Arithmetic statement function or Function 
subprogram. 


41 


Syntax error in disk I/O statement. 


42 


Disk I/O list omitted. 


43 


Disk I/O list contains both simple variables 
and array names. 


44 


COMMON exceeds core storage size. (May 
occur when large array is defined.) 




Error No. 


Condition 


57 


RETURN statement oppeored in program 
other A\an a subprogram Statement ignored). 


58 


RETURN statement not contained in a Sub- 
routine or Function subprogram. 


59 


Statement number not defined . See note at 
end of Table. 


60 


Syntax error in DEFINE DISK statement, 
invalid use of, or DEFINE DISK statement 
missing. 



NOTE: Errors 55 and 59 are not detected if Type I errors occur during compilation. 
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where ssss is the last statement number, encountered 
by the program prior to the error, and cccc is the 
number of statements following the last numbered 
statement, ssss + cccc is the statement that contains 
the error. Comment cards, blank cards, and continua- 
tion cards are not counted in the statement count. 

If an IMPROPER DO NESTING Or MIXED MODE message 
occurs, compilation is continued, but only to check 
for other errors. The Fortran Control records, pstsn, 
POBJP, and LDisK will be disregarded, the object pro- 
gram will not be executed and control will be return- 
ed to the Supervisor program. 

Compilation stops immediately after the symbol 
TABLE FULL or DO TABLE FULL mcssage is typed and 
control is returned to the Supervisor program. The 
approximate allowable number of symbols diflFers 
with the core storage size of the source machine. 
For a 1620 with 20,000 positions, approximately 
200 symbols are allowed. For a 1620 with 40,000 or 
60,000 positions, the number of symbols allowed is 
approximately 1200 or 2200, respectively. 

End of Compilation 

When all of the intermediate output is processed, the 
following messages are printed: 

nnnnn LENGTH 

aaaaa NEXT COMMON 

END OF COMPILATION 

where nnnnn is the number of core positions the 
object program requires (object program and data 
areas except common), and aaaaa is the next avail- 
able core storage position of the common area, ( aaaaa 
+ 1 is the last used position of common). 

If FORTRAN Control records specifying output are 
included with the source program, the outputting 
takes place following the end of compilation 
message. 

Identification Data 

When a program (or subiffogram) is compiled, it is 
headed with an identification record that will be used 
when the program is to be loaded into core storage 
for execution. 

Both main program and subprogram header identi- 
fication records are shown and described as below: 

Mainline or Link 

_ _ _ . _ _ Word Rec . . First Next Subroutine 

|001 00 1 2 1 67 1 987898 1 N1 1 N2 1 length | Length i Length | ff | kl< | Core [ Common | Indicotora | 

5126 252 3 5225 5 30 
Digits 



Subprogram 

_ _ _ _ Subprogram _ _ Entry Address Next Subroutine 

|00100|2|67|987898|Nome | Length | ff | kk | less Six | Common | M'coto" I 
5126 12 5225 5 30 



00100 
2 

67 

987898 

Subprogram Name 



Nl 



N2 



Word Length 



Rec. Length 



Length 
£Fandkk 



Entry Address Less 
Six 

First Core 



The address of the origin of 
the program less 100. 

An indicator to the relocating 
loader that a constant to be 
relocated is forilicoming. 

The number of digits in the 
forthcoming constant. 

An arbitrarily chosen constant 
to identify this as a header 
record for a Fortran pro- 
gram. 

The name of the program in 
double digit representation 
(left-justified). Used only 
in subprograms and For- 
tran function headers. 

The number of words per disk 
record. (From the define 
DISK FORTRAN Statement. ) 
This field is present only for 
mainline programs and 
links. 

The number of logical records 
in the disk, as used by the 
FORTRAN program. ( From 
the define DISK Fortran 
statement.) This field is 
only present in mainline 
program and link header 
records. 

The number of digits in the 
words used to determine a 
logical record. This value is 
the larger of the floating 
word and the fixed word 
length. 

The number of sectors to be 
used when reading or writ- 
ing logical records. This 
value is limited to the num- 
bers 1 and 2. 

The length of the program 
(This must be an even 
number). 

The length of the mantissa 
and the fixed point words 
in this program. 

The first location in the sub- 
program, less six, to enter 
the subprogram. 

The first location in the pro- 
gram to begin execution. 
Present only for mainline 
or link programs. 
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Next COMMON The next location available in 

COMMON. This must be an 
even address (e.g., 19998) 
so that COMMON can cor- 
rectly be written on disk 
during operation of the 
FORTRAN loader. Subpro- 
grams do not use this value. 
Sub. Indicators A digit position for each li- 
brary subroutine in the 
FORTRAN system. 
The identification record occupies one whole sector 
when it is on the disk. The format for the balance 
of this sector, if the program is in relocatable format, 
is shown below: 

6000021701234567891234567 

Subprograms Called by FORTRAN 

The names of the subprograms called by a program 
are stored at the end of the program. The address 
within the calling program where the address of the 
subprogram will be placed is also stored along widi 
the name of the subprogram. These 18-digit name 
and address records are created for the subprograms 
called and the last record is followed by a record 
mark. Up to 100 subprograms may be used with any 
one FORTRAN main program or hnk (50 can be loaded 
with the program; 50 can be called on an as-needed 
basis, i.e., local). 

I Naine | Address | 0 | 
12 Digits 5 1 

The names. and addresses of the subprograms called 
are moved to the Fortran loader work area when the 
subprogram is loaded. This Fortran loader will de- 
termine which of the subroutines called by the sub- 
program have not already been loaded, and will load 
those routines (exception: local subprograms cannot 
call a new subroutine; see object program execu- 
tion). The proper addresses are placed within the 
calling programs to link them with the subroutines 
that they call. 

Trace Feature 

Under program switch control, instructions can be 
compiled into the object program to enable the opera- 
tor to trace the flow of the program when it is execut- 
ed. During execution of the object program, the trace 
output is under control of Program Switch 4 as de- 
scribed under object program execution. 

The trace output contains the value of the left-hand 
side of each executed arithmetic statement and/or, 
the value of the ej^ression calculated in an if state- 
ment. 



Subroutines 

The subroutines for 1620 Fortran n-D are divided into 
two types: (1) Library subroutines and (2) Arith- 
mietic and Input/Output subroutines. 

LIBRARY SUBROUTINES 

Sixteen relocatable subroutines are included in 1620 
FORTRAN n-D (sec Table 11). 

The Library subroutines are loaded only when they 
are used in a program, "link" program, or subprogram, 
i.e., they are loaded before any execution of the call- 
ing program takes place but they are loaded only if 
required by the calling program. During compilation 
of a program, a 30-digit field of zeros is created (in 
the header record). When a subroutine is called for 
by a source statement or "required for use," a 1 is 
inserted in the proper location of the subroutine indi- 
cator field. The position in the field corresponds direct- 
ly to the subroutine number given in Table 11. 

"Required for me" means that even though the 
user has not directly called a specific subroutine it 
may be required by the system. For example, the 
LOGF and EXPF subroutines are used to compute the 
values of floating-point roots and powers in arithmetic 
statements. They are loaded, if required, before execu- 
tion of tile program that requires them. Likewise, the 
Subscripting routines (library numbers 3 and 4), and 
the disk routines (Hbrary numbers 5-11), though never 
directly called, will be loaded if required. Sections 
of library routines 5-11 are loaded to disk storage 
Cylinder 1 (relative to the start of the disk work area) 
and the specific section required is loaded from the 
disk to core storage only when it is needed. All read- 
ing and writing of even arrays (/ and k even) will 
be done without loading additional instructions from 
disk storage. 

The FORTRAN statements find, record, and fetch 
are processed by relocatable subroutines numbered 
5 through 11. These routines are loaded into core 
storage only if the disk Fortran statements are utiliz- 
ed in the object program. DiflFerent routines may be 
used to RECORD (or fetch) an array. The routines 
that will write out or read in an entire array with 
one disk instruction will be used if both the 
fixed word length and the floating word length are 
even (not necessarily equal). If either of these varia- 
bles was defined as odd in length, the array will be 
split into records that are the same length as those 
used when reading or writing lists of variables. The 
maximum speed in reading and writing of data from 
and to the disk is attained with even values for f and 
k (for example: 8 and 4). 
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• Table 11. FORTRAN II-D Library Subroutines 







SUB- 
ROUTINE 
NUMBER 








Storage Requirements 


TYPE OF FUNCTION 


SYMBOLiG 

KIAAAF 
INMIVIC 


DIM 
ENTRY 
NUMBERS 


TRANSFER 
ADDRESS 


VACIAni P 

WORD 
LENGTH 
ft = 


PiYFn 
riACU' 

WORD 

LENGTH 

(( = f<\ 








VAR. 


FIXED 




Logarithm (natural) 


LOGF 


1 


10 


170 


02248 


814 


650 


Exponential 


EXPF 


2 


11 


171 


02253 


978 


662 


Subscripting (2 dimensions) 


ENTSC2 


3 


12 


]J2 


02258 






Subscripting (3 dimensions) 

Routine to load or unload 
disk buffer (fixed) 


ENTSC3 
ENTSDX 


4 
5 


13 
14 


173 
:* 174 


02263 
02268 


I 474 


474 


FIND 


ENTFID 


6 


15 


175 


02273 






RECORD 


ENTREC 


7 


16 


176 


02278 


J 




FETCH 


ENTFET 


8 


17 


177 


02283 


1 




Routine to load or unload 
disk buffer 


CK.ITC\A/r\ 

cNTjWD 


9 


18 


178 


02288 


>1530 


1530 


Routine to write or read arrays 


ENTARR 


10 


19 


179 


02293 






Routine to complete FETCH 
or RECORD 


ENTCPT 


11 


20 


180 


02298 






Cosine 

Sine 


COSF 
SINF 


12 

13 


21 

22 


181 
182 


02303 

02308 


1 1154 


742 


Arctangent 


ATANF 


14 


23 


183 


02313 


938 


518 


Square Root 


SQRTF 


15 


24 


184 


02318 


470 


376 


Absolute Value 


ABSF 


16 


25 


185 


02323 


58 


58 



The FIND subroutine is used to position the access 
arm in the disk storage drive in advance of a fetch or 
RECORD. It may be necessary for the forteian system 
to change the position of the arm after a find opera- 
tion has been initiated. If this is the case, the same 
location for the arm as specified in the find statement 
will be sought again after the Fortran system opera- 
tion is complete. This automatic repositioning to the 
find cylinder will occur after every arm disturbance 
until the next fetch or record statement has been 
executed. 

The FORTRAN statements that use two or three di- 
mensions of subscripting are handled by the subrou- 
tines numbered 3 and 4 (this is actually one routine 
with two entry points ) . 

Two forms of the supplied hbrary routines are in- 
cluded with FORTRAN H-D. Both forms make use of the 
Automatic Floating Point Operations feature, and both 
forms are stored to disk storage when the Monitor II 
System is initially loaded. 

One set requires that the value of f be equal to 8, 
and is termed the fixed word length set. The other set 
is used when the value of / is not equal to 8, and this 



form is termed the variable word length set. The value 
of k may range from 4 to 10 with either set. 

The operation of the fixed word length routines is 
faster and in most cases requires fewer positions of 
storage (see Table 11). 

The only way to make the selection of the fixed 
word length or the variable word length library sets 
is through the value assigned to /. If / equals 8, the 
FORTRAN loader automaticaUy selects the fixed word 
length set; likewise, if / is not equal to 8, the variable 
word length set is selected. 

The user may add up to 14 subroutines to either set 
of the FORTRAN library. The procedures for adding 
subroutines and information for writing subroutines is 
given under adding subroutines to the Fortran 

LIBRARY. 

arithmetic and input/output ROUTINES 

The arithmetic and input/output subroutines, includ- 
ing constants and working areas, are basic routines 
needed for proper execution of the object program. 
They are loaded without being specifically called for 
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by the object program. Besides performing the funda- 
mental tasks of adding, subtracting, etc., these rou- 
tines also perform some diagnostic testing on the data 
being manipulated. 

Two sets of the arithmetic and input/output sub- 
routines are provided, and — just as with the library 
subroutines — one set is a fixed word length set and the 
other is a variable word length set. The Fortran load- 
er automatically selects the fixed or variable word 
length set, depending on the value of /. When the 
value of / is 8, the fixed word length set is selected; 
when the value of / is not 8, the variable word length 
set is selected. 

Both the fixed word length set and the variable 
word length set are supplied in two forms. One form 
of each set is sectionalized to create groups of the 
arithmetic and input/output routines. Each group 
contains several routines and is loaded to core storage 
only when required by the program being executed. 
The routines overlay one another which provides a 
substantial savings in core storage area. 

The second form of each set provides that all rou- 
tines be in core storage at one time. This form requires 
more core storage, naturally, but allows for faster op- 
eration of the program as there is no time lost in read- 
ing a routine in that is not already present in core 
storage. 

The routines to be read from-disk-when-required 
are placed in the first cylinder of the disk work area 
just prior to beginning execution of a program that 
will utilize them. The first cylinder of the disk work 
area is cylinder zero unless the user redefines the 
working cylinder. (See define parameters routine 
in the Disk Utility Program section.) 

When the Monitor II System is delivered, the rou- 
tines that read-in-when-required are designated as 
standard ( since the value of / is designated as 8, it is 
the fixed word length set). These standards may be 
changed through the use of the dup dfine control 
card. The selection of the in-core or the read-in-as-re- 
quired form can be made when a program is called 
for execution by placing the proper digit in the xeqs 
control statement (column 28). The digits that may 
be placed in this column are: 

1 or 3 — read-in-as-required 

2 or 4 — in-core 

Any digit higher than 4 will result in an error mess- 
age of: 



ERROR L8 

After this message the Fortran loader selects the sys- 
tem standard form and continues operation. 



The following core storage addresses are the first 

positions available for use by Fortran object pro- 
grams, depending upon the set and form selected. 

Fixed Word Length 
In-core - 11200 

Fixed Word Length 
Read-in-as-required — 07500 
Variable Word Length 
In-core - 13000 

Variable Word Length 
Read-in-as-required — 07500 

The arithmetic and input/output subroutines pro- 
vided are listed in Table 12. The absolute addresses 
can be found by referring to their symbolic names in 
the program listing. 

Symbol Table Listing 

If Program Switch 1 is in the on position during the 
FORTRAN compilation, the storage addresses of the 
symbol table will be listed in the following order and 
form. 

1. Floating-point constants Fixed-point constants 

XXXXX MMMMMMMMCC XXXXX FFFFF 

where XXXXX is the low-order address of the 
constant. 



• Table 12. FORTRAN Arithmetic and Input/Output 
Subroutines 



Subroutine 


Symbolic Name 


Operation 


Floating Point Arithmetic 






Reverse Subtract 
Reverse Divide 
Set FAC to zero 


FSBR 
FDVR 
ZERFAC 


A - FAC FAC 
A / FAC FAC 
0 »- FAC 


Fixed Point Arithmetic 






Reverse Subtract 

Multiply 

Divide 

Reverse Divide 


FXSR 

FXM 
FXD 
FXDR 


I - FAC — »- FAC 

FAC X I — FAC 
FAC / I — »- FAC 
I/FAC— »-FAC 


Common Subroutines 






Reverse Sign of FAC 

Fix a Floating Point Number 

Float a Fixed Point Number 


RSGN 
FIX 

FLOAT 


- FAC FAC 
FIX (FAC)-*- FAC 
FLOAT (FAC) -♦-FAC 


Exponentiation 






Fixed Point J ** I 
Floating Point A ** (±1) 
Floating Point A ** (iB) 


FIXI 
FAXI 
FAXB 


FAC ** I -*-FAC 
FAC **(±I)-*-FAC 
FAC ** (±B)-*-FAC 


Input/Output 






Read Card 
Read Tape 
Read Typewriter 
Write Card 
Write Tope 
Write. Typewriter 


RACD 

RAPT 

RATY 

WACD 

WAPT 

WATY 





FAC - simulated accumulator 
A& B - floating point variables- 
I & J - fixed point variables 
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MMMMMMMMCC is a floating-point con- 
stant. 

FFFFF is a fixed-point constant. 

2. Simple variable Dimensioned variables 

XXXXX NAME XXXXX NAME YYYYY 

where XXXXX for simple variables is the address 
at object time where the value for name will be 
stored. 

XXXXX for dimensioned variable is the ad- 
dress at object time of the first element in the 
array, name. 

YYYYY is the address of the last element in 
the array, name. 

If name* is typed, this indicates a dummy 
parameter within an arithmetic statement func- 
tion. 

3. Called subprograms 

XXXXX NAME 

where XXXXX is the location at which the start- 
ing address of the subprogram will be stored. 

4. Statement numbers 

XXXXX ssss 

where XXXXX is the address of the first instruc- 
tion generated for the statement numbered SSSS. 
The address of the first generated instruction for 
each statement is typed with Program switches 1 and 
4 in the on position. If the statement number pertains 
to a FORMAT statement, the location of XXXXX will 
be the actual address of the format specification. 

Symbol Table Listing for Subprograms 

When compiling a subprogram, the dummy argu- 
ments are listed after statement numbers, as follows: 

XXXXX NAME 

where XXXXX is the location at which the actual ad- 
dress of the variable in the mainline program, cor- 
responding to the argument, name, will be stored 
upon entering the subprogram. This same form is also 
used for simple and dimensioned variables. 

The addresses listed are not the actual addresses at 
object time. Since programs are relocated upon load- 
ing, the listed addresses have to be adjusted relative 
to the starting location of the program or subprogram. 

Object Program Execution 

A 1620 FORTRAN ii-D program may consist of three 
parts: a main program, a group of subprograms, and 
the library subroutines utilized by the main program 
and subprograms. The main program exercises control 
over the entire operation being performed. In addition 
to the normal execution of instructions, it has tiie 



ability to call subprograms and subroutines. 

Subprograms, defined with a function or subrou- 
tine subprogram statement at compilation time, can 
be placed into two groups (which have nothing to 
do with the way they were defined at compilation). 
For execution, subprograms are either: 

1. Loaded into core along with the main program 
(or link program) that calls them, or, 

2. They may be left on disk storage and brought 
into core storage only when called. 

The user must determine which subprograms are 
to be loaded into core storage prior to execution and 
which are to be loaded when called for immediate 
execution. The subprograms that are to be loaded 
when called are defined by using a local Control 
record. The subprograms that are named in the local 
record will be loaded to the work area of disk storage 
prior to execution of the main program or link pro- 
gram that calls them. 

A subprogram requires no changes in order to be a 
LOCAL subprogram. A subprogram written for use in 
core with the main program can be used instead as a 
LOCAL subprogram merely by naming it in a local 
control record. However, a local subprogram cannot 
call an "in core" subprogram that is not called from 
either (1) the main program, or, (2) another "in core" 
subprogram, and a local subprogram can never call 
another local subprogram. 

The following illustration shows the layout of core 
storage during execution of a typical Fortran 
program. 



Multiply and Add Tables 

Supervisor Routines 
02218 

Arithmetic and I/O Routines 

- 07500 or 11200 or 13000 - 

Mainline Program 



In-Core Subprograms 



Library Subroutines 



Routine Linkage Area and Loader Routine 



LOCAL Subprogram Read-in Area 



COMMON 
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LOCAL Control Record 

Subprograms that are to be loaded when needed are 
defined at load time by a local Control record. The 
format of the local Control record is as follows: 
Columns 1-6 * local 

7-80 Main program name, comma. 
Subprogram name, comma, 
Subprogram name, comma, 
etc. 

The main program may be identified in either of 
two ways. If it has a name in the system Equivalence 
table, that name may be used. If no name is in the 
Equivalence table to identify the main program, the 
name may be omitted. In this event, the comma nor- 
mally following the program name must be retained. 
Blanks may not be included between names and 
commas. The commas must be placed between sub- 
program names. When more than one card or tape 
record is needed to identify all local subprograms, 
a comma must be placed following the last name on 
each record that is followed by another local record. 
The name of the main program is omitted from all 
continued local records, but they must contain the 
asterisk and code word local. 

EXAMPLES 

* LOCAL MLNAME, SUBl, SUB2, SUB3, 

* LOCAL SUB4 

* LOCAL LNKNAM, SUB2, SUB6 

* LOCAL LNK2, SUB2, SUB6, SUB7 



Up to 100 subprograms (50 maximxmi, in core; 50 
maximum, local) may be called by a main program 
or link. 

local records to be entered into the system must 
follow the FORTRAN sourcc program when compiling 
and executing a program (see Figure 16). The number 
of LOCAL records to be read must be placed in col- 
umns 9-10 of the FORX record or columns 29-30 of the 
XEQS Control record. When typing the local record, 
no more than 79 columns may be used. When the 
local record is in paper tape, only 79 positions may 
be used and the positions used must be followed by 
a blank. 

Library subroutines to be loaded at load time are 
selected by interrogation of the subroutine indicators 
in the header record that precedes each program, link, 
and subprogram. Each indicator, one for each sub- 
routine, must be a numerical 1 if the corresponding 
subroutine is to be loaded to core storage at load time. 
All subroutines are loaded if called in the main pro- 
gram or if called in subprograms that are loaded to 
core storage. A LOCAL subprogram must not call for 
a subroutine that was not called for by the main pro- 
gram or a subprogram loaded to core storage (see 
Table 13). 

DATA Control Record 

The purpose of the data control record is to indicate 
to the FORTRAN loader that all segments of the pro- 
gram have been loaded prior to beginning execution. 




• Figure 16. Positioning of LOCAL and DATA Control Records in FORTRAN Stacked Input 
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The rules for inclusion of the data control record 
are: 

1. If the mainline or link program, or any of its 
associated subprograms are loaded from the 
paper tape reader or card reader, a data control 
record must be included in the stacked input 
whether or not any data is to be read by the 
program. 

2. If the mainline or link program, and its associat- 



ERROR 
CODE 


MEANING, REASON 


RESULT 


LI 


Invalid LOCAL control record 
Word LOCAL misspelled, mis- 
placed, or no asterisk 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L2 


Invalid name in LOCAL record 
Not formed according to 
FORTRAN rules 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L3 


Multiple name in LOCAL record 
Same subprogram name appears 
more than once for some pro- 
gram or link, or program or link 
name appears more than once 


Typeout JOB ABAN- 
lu'wiNci^, Dfuncn ro 
MONCAL* 


L4 


LOCAL subprogram table full 
Greater than 50 LOCAL sub- 
programs per link not allowed 

Mainline table (link names) full 
More than 50 links calling 
LOCALS not allowed 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L5 


Invalid header record 

Does not conform to standard 
FORTRAN header record 


Branch to MONCAL* 


L6 


Unequal F or K 

Subprogram F and/or K does 
not compare with main program 
F or K 


Subprogram not 
loaded 


L7 


New subroutine called from LOC- 
AL subprogram 

LOCAL subprogram cannot coll 

new subroutine 


Subprogram loaded; 
subroutine not loaded 


L8 


Invalid arithmetic and input/output 
subroutine set 

Not defined as 1, 2, 3, or 4 


Set defined as system 
standard is loaded, 
depending on group 
loaded 


L9 


In-core subprogram table full 
Greoter thon 50 subprograms 
not allowed 


Ignore above 50th 
sutprogram 


LIO- 


New subprogram called from LOC- 
AL subprogram 

LOCAL subprogram cannot coll 

new subprogram 


LOCAL subprogram 
loaded; new sub- 
program not loaded 


L11 


LOCAL subprogram disk storage 
area overlaps reserved disk work 
area 


LOCAL subprogram 
is not loaded 



*MONCAL is the symbolic name for Monitor Control Record 

Analyzer routine. 

• Table 13. FORTRAN Loader Errors 



ed subprograms are all loaded from disk a data 
control record must not be included in the stack- 
ed input. 

The format for the data Control record is as 
follows: 

Card 

Columns 1-5 *DATA 

6-80 must be blank 

Paper Tape 

[" 75 zeros ^1 

*DATA0000000000000000000a® 

when the data record is recognized by the loading 
routine, a check is made to determine which subpro- 
grams have not yet been loaded. If there are any 
such subprograms they are listed on the console type- 
writer, the machine halts; and the operator must then 
see that these subprograms are made available for the 
loading routine to load before depressing the Start 
key. If all subprograms have been loaded, any remain- 
ing data in the input unit will be skipped until the 
data record is read. 

Console Program Switch Settings 

Switch 1. When switch 1 is on, a list of the pro- 
grams being loaded is typed on the console type- 
writer. The format of the list is: 

XXXXXX NNNNN LLLLL LOADED 

where xxxxx is the name of the program or subpro- 
gram or the number of the subroutine, nnnnn is the 
beginning core storage address, and lllll is the 
length of the program. 

Switch 4. When switch 4 is on, and trace instruc- 
tions have been compiled into the object program, 
the trace output is listed on the console typewriter. 
The trace output contains the value of the left-hand 
side of each executed arithmetic statement and/or-, the 
value of the expression in an if statement. 

If the typewriter input is called for by the object 
program the operator must: 

1. Type in the required data. 

2. Turn Console Program Switch 4 to the off posi- 
tion. 

3. Depress the Release key. 

4. Depress the Single Instruction key 7 times. 
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5. Turn Console Program Switch 4 to the on posi- 
tion. 

6. Depress the Start key. 

If the operator makes a mistake when typing the input 
data it is necessary only to depress the R-S key and 
retype the required data. 

Operating Procedure 

To execute a previously compiled Fortran program, 
the following items must be placed in the input unit. 

1. JOB Control record. 

2. XEQS Control record. 

3. LOCAL Control records ( if required ) . 

4. Main program (if not previously loaded to disk 
storage). 

5. Subprograms (if required and not previously 
loaded to disk storage). 

6. DATA Control record. Note: This must be sup- 
plied even if data has been loaded to disk stor- 
age. 

7. Input data (if not previously loaded to disk stor- 
age). 

8. Job End Control record. 

When called for execution, the main program is 
converted from relocatable format and loaded into 
core storage (see loader routine in Supervisor sec- 
tion of this manual for a description of operation and 
errors). Following the loading of the main program 
the "in-core" subprograms are loaded. If any subpro- 
grams are not available the message 

LOAD SUBNAM 

is typed, where subnam is the name of the subpro- 
gram that must be loaded in the input unit. 

When all "in-core" subprograms are loaded, the 
library -subroutines needed by the main program 
and "in-core" subprograms are loaded into core stor- 
age. Following the loading of the subroutines, if any 
subprograms have been defined as local subpro- 
grams, an "object-time read-in routine" is loaded and 
following it a linkage area is reserved for each local 
subprogram. 

Then, the first local subprogram is loaded into core 
storage. The address to which this subprogram is 
loaded will be the input address for all local sub- 
programs. The first local subprogram is then moved 
to the top end of the work area of disk storage and 
the next local subprogram is loaded to core storage. 
local subprograms may be loaded to the system by 
way of the input unit, hdwever they must be stacked 
following any "in-core" subprograms to be loaded. 

If a DIM entry for a particular subroutine cannot be 
found in the map, the following message is typed out. 



NO ENTRY FOR SUBROUTINE nn 
JOB ABANDONED 

This would indicate that the entry was either delib- 
erately deleted from the map, never entered into the 
map, or otherwise destroyed. After the message is 
typed, the Fortran Loader branches to moncal ( sym- 
bolic name for the Monitor Control Record Analyzer 
routine). 

OVERLAP Errors 

During the loading of the main program, subpro- 
grams, subroutines, or the read-in routine or the pro- 
gram linkage areas, the available core storage area 
may be exceeded. 

If a main program or link program would exceed 
the available area the following message is typed 
and control is transferred to the Supervisor program 
(see monitor control record analyzer routine). 

NAME XXXXX OVERLAP 
JOB ABANDONED 

NAME is the name of the program or link program, 
XXXXX is the number of core storage positions re- 
quired by that program. If the program has no as- 
signed name, main is printed for name. 

If a subprogram would exceed the available area 
the name XXXXX overlap message is typed and the 
named program is not loaded. Subprograms following 
the "overlap subprogram" are loaded if possible. 

If a subroutine would overlap the available core 
storage area the message 

NN XXXXX OVERLAP 

is typed, where nn is the library subroutine number 
and XXXXX is the length of the subroutine. The sub- 
routine is not loaded. 

If the LOCAL subprogram read-in routine or program 
hnkage areas exceed the available core storage areas, 
the message 

FLIPER XXXXX OVERLAP 

is typed, fliper is the name assigned to represent the 
read-in routine and xxxxx is the length of the routine 
and linkage area required. The read-in routine and 
the linkage area are not loaded. 

After all possible programs are loaded, and there 
is any error — overlap or others — the message 

EXECUTION INHIBITED 

is typed and a branch to moncal is executed. 
(moncal is the symbolic name for the entry point to 
the Monitor Control Record Analyzer routine. ) 

During loading of a Fortran program, the errors 
listed in Table 13 may appear. 
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Subroutine Error Checks 

A number of error checks have been built into the 
library subroutines. The basic philosophy in the dis- 
position of an error is to type an error message, set 
the result of the operation to the most reasonable 
value under the circumstances, and continue the 
program (note error Dl exception, described below). 
Subroutine error codes, the nature of the error, and 
the value of the result in fac (symbolic name of the 
accumulator in which arithmetic operations are per- 
formed) are Hsted in Table 14. 
The error printout is in the form 
ER XX 

where xx is tiie error code in the table. 



Table 14. FORTRAN Subroutine Error Codes 



ERROR CODE 


ERROR 


RESULT IN FAC 


Dl 


Disk I/O used without a DEFINE 
DISK statement. 






D2 


Logical record specified exceeds 
N2. 






D3 


No group mark found at end of 
on orroy that was read from disk . 






El 


Zero division in FXD or FXDR 


999 




E2 


Overflow in FIX 


99 




Fl 


Loss of all significance in FSIN 
or FCOS 


000, , , , 


099 


F2 


Zero argument in FL.N 


99 


999 


F3 


Negative argument in FLN 


In/x/ 




F4 


Overflow in FEXP 


99 


999 


F5 


Underflow in FEXP 


00 


099 


F6 


Negative argument in FAXB 
Negative argument in FSQR 


SQR/x/ 




F7 


Input data in incorrect form or 
outside the allowable range 






F8 


Output data outside the allow- 
able range 






F9 


Input or output record longer 
than 80 or 87 characters (which- 
ever is applicable to the I/O 
medium being used) 






G1 


Zero to minus power in FIX! 


999 




G2 


Fixed-point number to negative 
power in FIX! 


5oo, , .. 




G3 


Overflow in FIX! 


999 




G4 


Floating-point zero to negative 
power in FAXl 


99,, . , 


,999 


G5 


Overflow in FAXl 


99, , 




G6 


Underflow in FAXl 


00 


,099 


G7 


Zero to negative power in FAXB 


99.;... 


.999 



If error Dl occurs, the machine halts, the typewrit- 
carriage returns, and the operator must enter the 
DEFINE DISK Statement parameters by means of the 
typewriter in the form of 

NNXXXXX 

where nn corresponds to Ni, and xxxxx corresponds 
to N2 as described for the define disk statement. Error 
Dl will be indicated until the values of Ni and N2 
are within the correct range. 

The FORTRAN loader further checks the value of N2 
(number of data records as specified in the define 
DISK statement) to see if the N2 disk work area would 
be overlaid by operation of the fortoan load^. The 
FORTRAN loadCT uscs the disk working area (starting 
from the high-order positions) for tables, common 
save area, and local subprograms. Also, the first 
(low-order) 218 sectors of the disk work area are 
reserved to store the short form groups of the arith- 
metic and input/output subroutines. If N2 iitms 
Record length xilus 218 is greater than the lowest 
disk address used by the Fortran loader, N2 will be 
redefined as 

X-218 
Record Length 

where X is the lowest disk address used by the For- 
tran loader. The user* is notified of this action by the 
following message: 

MAX N2 ALLOWABLE XXXXX 

where xxxxx is the maximum allowable value for N2 
Loading and execution of the programs continues. 

If Error D2 occurs, the specified record will not 
be written (or read), and the index value (I) may 
be incorrect. 

If Error F7 occurs, the field which is incorrect is 
replaced by zeros, and processing continues. 

The exponent portion of an E-type input data field 
must be right-justified in that field and may contain 
only one sign. Deviations from this rule are not check- 
ed. For exponents greater than 99 (absolute value), 
the value is reduced modulo 100. 

If Error F8 occurs, the incorrect field is set to 
blanks in the output record, and an additional record 
is tj^ed. This record contains the incorrect field in 
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the form 

E (f + 6). f for floating-point numbers, and 
I (k + 1) for fixed-point numbers. 

This additional record is also produced on the output 
unit (card punch, tape punch, or typewriter) called 
for by the source statement. 

If Error F9 occurs, the incorrect field is ignored 
and processing continues. However, a remote possi- 
bility exists that part of the subroutines and the object 
program may have been destroyed by the abnormal 
record. In this case, the program may inexplicably 
halt at some later point in its execution. 

Object Program Subroutine Linkage 

The linkage generated by the Fortran n-D compiler 
is in the form 

BTM SUBR, A 

where subr is the name of the entry point for the sub- 
routine and A is the address of die operand. For the 
relocatable library subroutines, an indirect address is 
used in the linkage. The actual address of the library 
subroutine entrance is stored at locations 02244-02248, 
02249-02253, etc. The fortra.n object program linkage 
for entrance to the first library subroutine will ap- 
pear as, 

BTM-02248, A 



Adding Subroutines to the FORTRAN Library 

The user may write library subroutines in sps lan- 
guage and have them placed in the Fortran library. 
The subroutine must be assembled using the sps h-d 
program, and may be loaded to disk storage at as- 
sembly time or at a later time using the Disk Utility 
program. 

Special dim entry numbers are reserved exclusively 
for the FORTRAN library subroutines. When the Mon- 
itor II System is delivered, the fixed word length 
library set uses dim entry numbers 10 through 25. 
Numbers 26 through 39 are available for user-written 
routines. The variable word length library set uses 
DIM entry numbers 170 through 185, with numbers 
186 through 199 available for user- written routines. If 
desired, the last 5 of the 16 subroutines in each set 
may be replaced with user-written routines. 

When a subroutine has multiple-entry points, a dim 
entry is required for each entry point. No subroutine 
may have more than 9 entry points. The symbolic name 
of each entry point must be specified in a dsa state- 
ment at the beginning of the source program. Also, the 



number of entry points must be specified in a special 
DEND statement. 

The user must provide a 5-position area immedi- 
ately preceding each entry point. This space will be 
used to contain the address of the parameter when 
the subroutine is entered. 

In installations where both the fixed and variable 
word length library subroutine sets are used, any ad- 
ditional subroutine must be added to both sets. The 
procedure for accomplishing this is described under 

LOADING THE LIBRARY SUBROUTINE. 

When selecting the proper routine (before execu- 
tion) the FORTRAN program decodes the name and 
finds the proper dim number for the variable word 
length subroutine. If the fixed length routines are 
called for, a constant 160 is added to the dim number. 
There must, therefore, be correspondence in numbers, 
names, and the number of entry points between the 
fixed and variable word length subroutines to be 
added. 

If only the variable word length set or only the 
fixed word length set is to be used, it is not necessary 
to add additional subroutines to both sets. (See load- 
ing the LIBRARY SUBROUTINE foT examples.) 

Working Areas 

In writing the subroutine, the programmer may first 
move the argument into one of the working areas 
such as FAc, BETA, or SAVE. In arithmetic subroutines, 
the exponent of a floating point result is usually stored 
in save before being moved to fag. A careful study 
of tlie arithmetic subroutines may reveal that the relo- 
catable subroutine to be added can share the normali- 
zation, sign determination, overflow, underflow, and 
error typeout sections. The value calculated by the 
subroutine must be left in fag. Even if no value is 
calculated, it is advisable to place a constant in fag. 

When programming a subroutine with variable 
length floating-point numbers, it may be necessary 
to use certain addresses and constants available in 
the arithmetic and input/output subroutines. A refer- 
ence to the listings of these subroutines will yield the 
information on these addresses and constants. As the 
mode of operation (fixed or floating point) is deter- 
mined by the argument of the subroutine, the For- 
tran ii-D Processor does not distinguish fixed-point 
from floating-point subroutines. It is up to the user 
to have a thorough knowledge of the added subrou- 
tines and to use them correctly. 

Loading the Library Subroutine 

Additional subroutines can be added to the Fortran 
library directly at the time of assembly, or after 
assembly. 
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The following examples illustrate adding a subrou- 
tine with two entry points (at assembly time). 

EXAMPLE 1: 



=l=tJOB 






+4= SPS WRITTEN LIBR SUBR FOR FIXED SET 


+4=SPS 






*LIBR 






♦ASSEMBLE RELOCATABLE 




♦STORE RELOADABLE 




*ID NUMBER 0186 






START DSA 


ONEENT, 


TWOENT 


DORG 


START-4 




FAC DS 


,2492 




DC 


5,0,, 


(See Explanation 


ONEENT NOP 




Following 


TFM 


FAC, 0, , 


Example 2) 


BB2 






DC 


5,0 




TWOENT NOP 






TFM 


FAC,0 




BB2 






DEND 


2 





The above source statements make use of dim entries 
186 and 187; note that no names are actually assigned. 
In the following example, which adds the same rou- 
tines to the variable word length set, the name oneent 
is added at assembly time; the second entry point 
(named twoent) is added by the Disk Utility dflib 
operation. (See additional entries and synonyms.) 

EXAMPLE 2: 



An explanation of each of the source program state- 
ments follows. 

DSA The name of each entry point must be 
listed in a dsa statement at the beginning 
of the source program. It is labeled so it 
can be referenced by the dorg statement. 



DORG This eliminates the core requirements of 

the DSA statement. 
DS Allows for symbolic reference to the 

Floating Accumulator area. 
DC Provides space for btm address when the 

subroutine is entered during execution. 

A 5-position area must precede each 

entry point. 

NOP The nop will be replaced by the user- 
written statements of the subroutine to 
be added. 

TFM This illustrates the recommended restor- 
ing of the Floating Accumulator area. If 
a value is to be returned, a tf or tfl 
would be used in place of the tfm. 

BB2 Last executable statement. BB can also 
be used. 

DEND L^st source statement as with normal 

SPS assembly except for the special num- 
ber in the operand field which denotes 
the number of entry points. 

The procedure for assembling and adding a subrou- 
tine to the variable word length set only is as follows. 



4=4=JOB 

t4=SPS 
*LIBR 

♦ASSEMBLE RELOCATABLE 
♦STORE RELOADABLE 
♦m NUMBER 0026 
♦NAME 

START . (Subroutine instructions 

including those required as 
shown in Examples 1 and 2) 
DEND n 



If the subroutine contains more than one entry point, 

the name and dim entry number for each entry must 
be provided in a dflib control statement as described 
under additional entries and synonyms. 

The procedure for assembleing and adding a sub- 
routine to the fixed word length set only is the same 
as that for the variable word length set, except that 
no NAME statement is included. (Also, the range of 
the DIM entry for the id number statement is from 
0186 to 0199. ) All names of the entry points are added 
with DFLIB statements using the corresponding variable 
set DIM entry numbers. For example; the id number 
statement could specify dim entry 0187 but the dflib 
statement would specify (and name) dim entry 0027. 

The Disk Utility program can be utilized to load the 
subroutine to the library sets, in which case, the 
NAME, store reloadable, and ro number statements 
must be omitted, while an output card or output 
PAPER TAPE statement should be included. 



+WOB 

+4= SPS WRITTEN SUBR FOR VARIABLE SET 

tftSPS 

♦LIBR 

♦NAME ONEENT 
♦ASSEMBLE RELOCATABLE 
♦STORE RELOADABLE 
♦ID NUMBER 0026 

START DSA ONEENT, TWOENT 

DORG START-4 
FAC DS , 2492 

DC 5,0,, (See Explanation 
ONEENT NOP ,,, Following 

TFM FAC, 0, , This Example) 
BB2 

DC 5,0 
TWOENT NOP 

TFM FAC,0 
BB2 

DEND 2 

+4=DUP 

♦DFLIBTWOENT 27 
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Source Program 



* STORE RELOADABLE 



NAME 



* ID NUMBER 



ASSEMBLE RELOCATABLE 



LI BR 



+ + SPS 

Monitor Control Record 




+ + DUP 



Object Program 
Output from Assembly 



* DLOAD 



+ *DUP 

Monitor Control Record 




Used to Define 
Additional Entry 
Point Names and 
Synonyms. 



Figure 17. Adding Subroutines for FORTRAN Subroutine Library 



The following example illustrates the necessary in- 
formation to be included in the dload control record 
for a subroutine named hcos to be added to the vari- 
able word length set. 

*DLOAD HCOS 0026 0101200002 C I 
▲ ▲ A ▲ A A 

Col. 7 17 39 44 49 50 

Columns 1-6 Code word *dload. 

7-12 Alpha name of program to be 
used in Fortran arithmetic state- 
ments. 

17-20 DIM entry number. 

39-43 The length of the subroutine. This 

niraiber must be even. 
44-48 The number of entry points. 

49 Input unit ( C for card, P for paper 
tape). 

50 Core image format. 

Other options, such as read-only protection, are 
available if they are desired. (See dload control 
RECORD in the Disk Utility Program section of this 
manual. ) 

Additional Entries and Synonyms 

A DFLiB Control record must be entered if the subrou- 
tine contains more than one entry point, or if one 
entry point is to be called by more than one name. 
The format of the dflib Control record follows. 

Columns 1-6 *dflib 

7-12 User-assigned name, left-justified. 
13 Not used (must be blank) 



14-15 dim entry number 
16-80 Not used. 

The dim entry number must be between 21 and 39 
and must correspond sequentially with the entry point 
names of the source program dsa statement. For ex- 
ample; assume the following dsa statement of a sub- 
routine to be added to the Fortran library. 

START DSA ONE, TWO, THREE 

If the ro NUMBER statement contained: 

0026 the dflib Control cards must assign two 

as 27, and three as 28. 
0188 the DFLIB Control cards must assign two 

as 29, and three as 30. 

As delivered, the system makes use of dim entry 
numbers 10 through 25, and 170 through 185 for 
FORTRAN library subroutines. The last 5 of each set 
may be removed, if desired. // no subroutines are re- 
moved from the Fortran library sets, the available 
DIM entry numbers for additional library subroutines 
are 26 through 39, and 186 through 199, The dflib 
Control card can only use the dim numbers of 26 
through 39. 

Typical input sequences to assemble and load a sub- 
routine are shown in Figure 17. 



FORTRAN Subprograms Written in SPS 

The FORTRAN user is able to create subprograms using 
SPS and having these subprograms available immedi- 
ately for call by Fortran programs. To accomplish 
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this he must follow the writing specifications outlined 
here. 

The Indicator Record 

Each subprogram to be called by a Fortran program 
must contain a header record to identify the routine 
and to provide other essential information. The sps 
instructions necessary to create this record are shown 
below. 



DS 


, *+ioi 


DC 


6, 987898, 5-S 


DAC 


6, NAMEbb, 7-S 


DVLC 


22-S, 5, LENGTH, 2, flF, 2, kk, 5, 




Entry Address-6, 5, 0, 30, 0 


DSC 


17, 0,0 


DORG 


S-100 



where length is the address of a ^ or the first digit of 
a subprogram name in the call list ( see calling other 
subprograms). 

Calling Library Subroutines 

If the subprogram or function is to call Fortran li- 
brary subroutines, the user must write out the dvlc 
operand that contains the 30 zeros in the indicator 
record example. The position that corresponds to the 
subroutine must contain a one instead of a zero. The 
correspondence between the positions in this field and 
the standard library subroutines are presented in 
Table 11 so that the user may select any subroutine 
in the library. To effect a transfer to any library sub- 
routine from the sps written subprogram, the user 
must write the following instructions: btm — subr, 
PARAM, where param is the address of the parameter 
required by the subroutine and —subr is the address 
for the subroutine entry shown in Table 11. The sub- 
routine entry address must be indirect. 

Calling Other Subprogrdms 

If the user wishes to call other subprograms from an 
sps written subprogram, he may do so. To do this the 
user must code: 

BTM NAMESP, *+ll 

DSA A,B, . . . , Z 
for each transfer to another subprogram, and must 
include the name of the subprogram called. This is 
equivalent to the Fortran coding of: 

CALL NAMESP (A, B, . . . , Z) 

Each called subprogram must have a 5-digit btm- 
address-field reserved in the subprogram just prior to 
the entry point. Also, the names of the subprograms 
to be called must be placed (in double-digit form) 



at the end of the calling subprogram along with the 
address of the reserved address field with the sub- 
program. These names and addresses must follow the 
last location of the subprogram. They can be coded 
as follows. 



DAC 6, NAMlbb, 

DVLC NILOC 

DAC 6, NAM2bb, 

DVLC N2LOC 

DC 2, 0 (a) 



This coding will cause the 
two subprograms named 
NAMl and NAM2 to be 
called out and made avail- 
able when the sps routine 
that requires them is load- 
ed. 



where nIloc is the low-order address of the P field of 
the BTM instruction that calls this subprogram. For 
example; 

BTM XXXXX, *H-11 
NILOC- * 

The record mark must follow the list of names in the 
next even location available. When no subprograms 
are called, the record mark must be placed in the next 
even location following the last statement. 

Writing FORTRAN Subprograms in SPS 

In addition to the header record described above, 
linkage to obtain the subprogram parameters must 
be included in ilie subprogram. If no parameters are 
needed, or if die subprogram knows the location of 
the parameters, the user writes: 



DC 5,0 

SUBNAM AM SUBNAM-1,1,10 



B SUBNAM-1, , 6 

DC i,m 



The 
subprogram 



If one parameter is needed, and this subprogram is 
never nested within any other function or subpro- 
gram, the user writes: ' 

DC 5, 0 

SUBNAM AM SUBNAM-1, 5, 10 

TF INSUB, SUBNAM-1, 11 
AM SUBNAM-1, 2 



B SUBNAM-1, , 6 
DC 1, @ 



The 
subprogram 



If several parameters are to be moved to the subpro- 
gram, a loop may be utilized to conserve core storage. 
The parameters must be stored in the subprogram in 
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consecutive order. An example of tiie coding to ac- 
complish this fen: three parameters is shown below: 



INSUB 


DSA 


0, 0, 0 




DC 


1, @ 




DC 


5, 0 


SUB 


TFM 


TF+6, INSUB-4 




AM 


TF+6, 4, 10 




AM 


SUB-1, 5, 10 




f I'H.l 

TF 


CF+11, SUB— 1, 11 








CF 


CF 


CF-l-ll 




TF 


CF+11, CF+11, 11 


TF 


TF 


INSUB, CF+11 




AM 


TF+6, 1, 10 




BNR 


SUB+12, TF+6, 11 




AM 


SUB-1, 2, 10 




B 


SUB-1, , 6 




DC 


1, @ 



The instructions that constitute the body of the sub- 
programs are placed between number 1 and 2 above. 
Instruction 1 must add "two" if the number of para- 
meters is an odd number, or "one" if this number is 
even. The record mark must be in the first even loca- 
tion following the subprogram. 

The instruction number ed2(B SUB— 1, ,6)' returns 
control to the calling program. When writing subpro- 
grams in BPS the user must place this instruction at 
every point that a return is required. 

The following example shows a sample subroutine- 
type subprogram written in sps. 



Writing FORTRAN FUNCTION Subprograms in SPS 

The user must add one instruction to the set required 
for SUBROUTINE Subprograms written in sps in order to 
write FORTRAN FUNCTION Subprograms (subroutines 
normally produced by Fortran statements preceded 
by a FUNCTION statement). This statement is tfl fac, 
ANs. fac is the simulated floating accumulator and ans 
is the location where the result of the subroutine cal- 
culation is stored. Prior to a return to the main pro- 
gram, this instruction must be executed. The actual 
address of fac is constant and is available in the 

FORTRAN n-D Hstiug. 

Disk Sforage Location of the FORTRAN 
Compiler 

The FORTRAN compiler and operating system is an 
integrated part of the Monitor system. It is possible, 
however, to eliminate the programs that constitute the 
FORTRAN portion of the Monitor, and still utilize the 
remainder of the system. It is also possible to delete 
specific FORTRAN library subroutines and to utilize the 
remainder of the Fortran system. The procedure to 
follow in order to delete any program from the disk 
is described in the dup section. The dim entry num- 
bers that may be specified for deletion are shown 
below. 





DIM No. 


Disk 
Location 


FORTRAN Compiler 


136, 137, 153, 


Cylinder 


86, 




156, 203 


87, 88, 89 


,90 


FORTRAN Subprogram 


138, 147, 149, 


Cylinder 


80, 


Loader 


150, 152, 157 


84 




FORTRAN Arithmetic 


144, 145, 146, 


Cylinder 


84, 


and I/O 


200, 201, 202 


85 




FORTRAN Library 


* 10-39, 


Cylinder 


81 


Subroutines 


170-199 







If the FORTRAN system is deleted using the dup rou- 
tines, the portion of the disk which it occupies will 
become available for assignment of other user writ- 
ten programs. 



*When the system is dehvered, 10 through 25 and 170 
through 185 are in use. The symbolic names of the 
subroutines that may be deleted are cosf, sinf, atan, 
SQRTF, and ABSF.The other subroutines may be deleted 
only if the complete Fortran system is deleted. 









+4=SPS 






♦ASSEMBLE RELOCATABLE 


*NAME REVABS 




*STaRE RELOADABLE 


* SPS WRITTEN SUBPROGERAM WHICH REVERSES THE TWO ARGUMENTS 


*AND ABSOLUTES THE RESULT. NOTE CALL TO LIBR SUBR ABSF. 


*IF NO LIBR SUBS ARE CALLED, DVLC WOULD BE 


*DVLC 22-S, 5, LENGTH, 2, 8, 2, 4, 5, ENTRY-6, 5, 0, 30, 0 


S 


DS 


, *+101 




DC 


6, 987898, 5-S 




DAC 


6, REVABS, 7-S 




DVLC 


22-S, 5, LENGTH, 2, 8, 2, 4, 5, ENTRY-6, 5, 0, 15, 0, 1, 1, 14, 0 




DSC 


17, 0, 0 




DORG 


S-100 


FAC 


DS 


, 2492 


ABSF , 


DS 


, 2323 


TEMP 


DC 


5,6 


TEMPI 


DC 


10,0 


TEMP2 


DC 


5,0 




DC 


5,0,, SPACE FOR BTM PARAMETER 


ENTRY 


AM 


ENTRY-1. 5, 10. GET AD.DRESS OF 1ST ARG 




TF 


TEMP, ENTRY-1, 11, BUFFEU ADDR OF 1ST ARG 




AM 


ENTRY-1, 5, 10, GET ADDR OF 2ND ARG 




TF 


TEMP2, ENTRY-1, 11, BUFFER ADDR OF aNDARG 




TFL 


TEMPI, TEMP2, 11, SAVE ARGUMENT B 




TFL 


TEMP2, TEMP, 611, REPLACE B WITH A 




TFL 


TEMP, TEMPI, 6, REPLACE A WITH B 




BTM 


-ABSF, -TEMP, , ABSOLUTE A 




TFL 


-TEMP, FAC, , ABSF LEAVES VALUE IN FAC 




BTM 


-ABSF, -TEMP2, , ABSOLUTE B 




TFL 


-TEMP2, FAC, , ABSF LEAVES VALUE IN FAC 




AM 


ENTRY-1, 1, 10, COMPUTE RETURN ADIXIESS 




B 


ENTRY-1,, 6, RETURN ' 


LENGTH DC 


1, @, , RECORD MARK IN EVEN LOCATION 




DEND 
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IBM 1620-1443 Monitor II System 

A printer-oriented Monitor II System is available for 
1620 Systems that are equipped with an ibm 1443 
Printer. This system is an extension of the standard 
Monitor II System described in the preceding pages of 
this pubhcation. Only the diflFerences between the 
standard system and the printer-oriented system are 
described here. Specifications and operating proced- 
ures pertaining to the standard system are vaHd for 
the printer-oriented system if no specific mention is 
made of them in this section. 

General Description 

The 1620-1443 Monitor II System requires that an ibm 
printer be included in the 1620 system configuration. 

Of course, any other apphcable input/output units, 
special features, etc., may also be attached to the 
system. 

The principle advantage of a printer-oriented system 
is that it provides a convenient and relatively fast 
means of obtaining Hstings of assembled or compiled 
programs, symbol tables, and any other data that 
might be desired. The component programs of the 
Monitor II System have been modified to make the 
best possible use of the printer. The console typewrit- 
er is used only for messages which must be acted 
upon immediately by the operator. 

The following paragraphs were written under the 
assumption that the reader has a practicable knowl- 
edge of the IBM 1443 Printer. Those without such 
knowledge should read the publication, ibm 1443 On- 
Line Printer for 1620/1710 Systems (Form A26-5730). 

Supervisor Program 

The I/O routine of the Supervisor Program has been 
modified to handle printer output for both sps and 
FORTRAN object programs. This was accomplished 
without changing entry points, linkages, or core stor- 
age requirements. The language used to gain access to 
the I/O routine is described in the respective sps and 
FORTRAN portions of this section. 

Printer Errors 

If a printer error (indicator code 25) occurs, the 
message 

PRT ERR XXXXX 
is typed out, and control is returned to core address 
XXXXX in the calling program. In addition, the error is 
recorded in a printer error counter which has been 
added to the error counters used in die standard sys- 
tem. Whenever the error indicators or error counters 
are typed out, they will be in the following sequence: 

660716172^63738 



The only change is the addition of the Printer Check 
indicator (code 25). 

Note; If a halt occurs at addr^s 00467, either with or 
without a prior error message, the program can be re- 
sumed by pressing the Reset and Start keys. 

Programming Considerations 

1. The Printer Busy indicator (code 35) is not test- 
ed by the I/O routine; therefore, if the test is 
desired, the user must perform it before execut- 
ing a call to the printer. 

2. Carriage control operations must be handled in 
the users program. 

Disk Utility Program 

Two Disk Utility Program routines have been modi- 
fied to use the printer: Disk-to-Output and Define 
Parameters. 

Disk-to-Output Routine 

The Disk-to-Output routine has been modified to use 
the printer for all output that was formerly typed out 
on the typewriter. To specify the printer as an output 
unit, the user must punch the letter L in column 17 
of the DDUMP control card. 

The format of the printed output is 100 characters 
(1 sector) per line, with the exception of the Availa- 
bility List and the Equivalence Table which retain 
the format used in the standard system. 

Define Parameters Routine 

The Define Parameters routine has been modified to 
allow FORTRAN ii-D to be set for either 120 or 144 
print position usage of the 1443 Printer during com- 
pilation and execution of the object program. The 
user may put a zero in column 59 of the dfine con- 
trol record for 120 print position operation, or a one 
for 144 position operation. This indicator is set in 
position 65 of the Communications Area on disk. 
(When the system is delivered, this indicator is set 
to zero.) 

SPS II-D 

The sPS ii-D assembly program has been modified to 
include twelve printer-oriented imperative mnemon- 
ics, two printer declarative mnemonics, and three new 
sps control statements. 

Printer Imperative Mnemonics 

The imperative mnemonics included in the printer- 
oriented Monitor II System are listed in Table 14.1. 
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Table 14.1. Imperative Printer Mnmonics 





OPERATION CODE 


OPERANDS 


OPERATION 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Printer Dump 


PRD 


35 


Storage address from 
which leftmost (first) 
numerical character is 
written 


None Required 


Printer Dump and Suppress 

Spacing 


PRDS 


35 


Same as Printer Dump 


None Required 


Print Numerically 


PRN 


38 


Same as Printer Dump 


None Required 


Print Numerically and 
Suppress Spacing 


PRNS 


38 


Same as Printer Dump 


NJnn^ RAniiirAn 


Print Alphamerically 


PRA 


39 


Storage address from 
which leftmost Alpho- 
meric character is 
written (odd numbered 
address) 


None Required 


Print Alphamerically and 
Suppress Spacing 


PRAS 


39 


Some as Print Alpha~ 
merically 


None Required 


Skip Immediate 


SKIP 


34 


Not used 


Control Code 


Skip after Printing 


SKAP 


34 


Not used 


Control Code 


Space Immediate 


SPIM 


34 


Not used 


Control Code 


Space after Printing 


SPAP 


34 


Not used 


Control Code 


Branch on cj^annel 9 


BCH9 


46 


Address branched to if indi- 
cator 33 is on. This indica- 
tor is turned on by the detec- 
tion of a hole in channel 9 
of the carriage tape. 


None Required 


Branch on channel 12 


BCOV 


46 


Address branched to if indi- 
cator 34 is on. This indica- 
tor is turned on by the detec' 
tion of a hole in channel 12 
of the carriage tape . 


None Required 



Also shown are the actual op codes generated, and the 
P and Q address functions. Table 14.2 shows the Q- 
address modifiers that are generated in die object 
program. 

Some examples of printer statements are shown 
below: 



label 




Operands & Renterln 




PM 


DATA.,., ,.PKI.NT, mjM.£KI.CAL.Ly. 










PM^ 


UJAj.j.jPRI.HJ. H.UM.R.I.CALiy. AM ,&U.P.P.R.£.S.S. .SPAC.IJ1.G. 










SKIP 


,.2f.ySXIP .imE.D.IfiTf. J.O. .C.AM.RJA.S.£. .CMAtlM.L. Z 












,S.,.f.SXIP. AfTl.R. .P.R.l.HJ.\H.G, J.O. .C.A.HRIAG£. .CHAflMl. .5. 










S,PJM 


,,3,,,,,«tO,K',£, .CA.R.R.I A.G£. 3. .SPA.C.E.S^.I MM.D.I ATM. 










S,P,A/> 


■j.Z.,.iM.O.V.e. CA.RJt.1 .A.6.E. 3. .S.PA.C.£.S. .A.F.T£.R. .P.KI .H.T./ M.G. .... 









In these examples, the operand data represents the 
core storage address of the data to be printed; the nu- 
merical operands (2, 5, 3, 3) are either channel num- 
bers for skip operations or the number of spaces for 
space operations. Table 14.3 shows the Q operands to 
be placed in the skip and space statements for all 
possible skip and space operations. 

Printer Declarative Statements 

Two printer declarative mnemonics are included in the 
printer-oriented Monitor II System. Descriptions of 
the mnemonics follow, together with the two-digit 
code diat is generated for the I/O constant. Note the 
two forms of each declarative. 
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Table 14.2. OP Codes and Q Modifiers Generated for Printer 
Mnemonics 







OP 
CODE 


Q 


MODIFIERS 


MNEMONIC 


OPERATION 


^8 


Q9 






PRD 


Printer Dump 


35 


0 


9 




0 


PRDS 
PRN 


Printer Dump ond 
Suppress Spacing 

Print Numerically 


35 
38 


0 
0 


9 
9 


Not 
used 


1 

0 


PRNS 


Print Numerically and 
Suppress Spacing 


38 


0 


9 




1 


PRA 


Print Aiphamericoily 


39 


0 


9 




0 


PRAS 


Print Alphamerically 
and Suppress Spacing 


39 


0 


9 




1 




Branch on Channel 9 


HO 


•3 

o 


3 






BCOV 


Branch on Overflow 


46 


3 


4 






SKIP 


Skip Immediate 


34 


0 


9 


* 




SKAP 


Skip After Printing 


34 


0 


9 






SPIM 


Space Immediate 


34 


0 


9 






SPAP 


Space After Printing 


34 


0 


9 


« 





*Modifiers which specify the particular skip or space operation 
(see Table 14.3), For a detailed description of these modifiers, 
refer to the publication entitled IBM 1443 On-Line Printer for 
1620/1710 Systems (Form A26-5730). 



Table 14.3. Q Operands and Q Modifiers for Skip and Space 
Operations 





ACTUAL Q^Q, Q,, MODIFIERS 






AFTER PRINTING 


CONTROL CODES 


IMMEDIATt 


(DELAY) 


Skip to Channel I 


71 


41 


(SK IP or SKAP) 


72 


42 


2 


3 


73 


43 


4 


74 


44 


5 


75 


45 


6 


76 


46 


7 


77 


47 


8 


7fl 


48 


9 


79 


49 


10 


70 


40 


11 


33 


03 


12 


34 


04 


Number of Spaces 1 


51 


21 


(SPIM or SPAP) ^ 


52 


62 


3 


53 


63 



Mnemonic Code Name 

DPRN I4 Define Printer Numerical 

DPRN, , S 22 Define Printer Numerical - 

Suppress Spacing 
DPRA 18 Define Printer Alphameric 

DPRA, , S 26 Define Printer Alphameric - 

Suppress Spacing 

These declarative operations generate an I/O con- 
stant in the object program which can be used by a 
PUT I/O macro-instruction to print data under control 
of the I/O routine. When used in the source program, 
they identify the output record area. Three operands 
are required for each statement. The first operand is 
used to specify the address where the I/O constant is 
to be loaded into core storage. This operand may be an 
absolute value or a symbolic name. If a symbolic name 
is used, the symbol must previously have been defined 
as an absolute value. If the operand is omitted, the 
processor will assign the address to which the con- 
stant will be loaded in core storage. 

The second operand, which may be symbolic or ac- 
tual, is the address of the output record area. This ad- 
dress will be included in the I/O constant in the object 
program. The third operand may be the letter S or it 



may be omitted. If the letter S is present, the auto- 
matic single space after printing will be suppressed 
whenever the associated output record is printed. Re- 
marks are permitted following the third operand. 

If a label is included with this statement, the storage 
address assigned to it will be that of the leftmost posi- 
tion of the generated I/O constant. 

The statements which follow show how a dpra de- 
clarative statement is used with a put I/O macro-state- 
ment to print a 110-alphameric character record under 
control of the Supervisor I/O routine. In this example, 
the first two statements define the output area where 
the record is stored. 



label 


>>erotion 


Optrandi li lUmoHcs 


R.£.C.O,R,D 




1 IP., ,.DEF.I NJE AL.P.HM£.li./C P.UJ.P.UJ. .KSCORfi. 




W, 


1 :y§.,.,.M.UST .rO.L.L.O.W. W.IT.H. RBC.ORD. HARK , 








PJi,HJJi. 


WA 


yRI.C.O.RPy,.IMMJJfY. .PAIMJIA O.U.TPM.T. Ji£.CJORP. 












f>mm,.,w./i./.T£. mrmr. m.c. .a.s. .sMc./ .f.i .ej>. by. .dAra , 









The declarative statements are usually written pre- 
ceding or following the program; however, the macro- 
statement is entered in the program at the point where 
printing is to take place. 



135.3 



Printer Control Records 

In die printer-oriented Monitor II System, there are 
three sps control records that pertain to printer opera- 
tions. The first two described here are modifications of 
SPS control records used in the standard system; the 
third is a new control record. 

*LIST PBINTER - This record replaces the list 
TYPEWRrrER record used in the standard system. It 
causes a listing to be printed by the printer during 
assembly. 

The format of the listing is as follows: page and line 
number, label, op code, operands, remarks, core loca- 
tion, and object instruction. 

^'PRINT SYMBOL TABLE - This record replaces 
the TYPE SYMBOL TABLE rccord used in the standard 
system. It causes the symbol table to be printed by 
the printer following assembly. 

**XXXXXXXXXXX — This record is used to print a 
heading above listings and/or symbol table printouts. 
The data (signified by Xs above) that follows the two 
asterisks is printed at the top of the respective print- 
outs. When this record is printed during assembly, it is 
shown as an Identification record with the code ( ID ) 
printed to the left of the two asterisks. This is also true 
of all Identification records used in the printer-orient- 
ed system; that is, the code (ID) is printed to the left 
of the record instead of to the ri^t as in the standard 
system. 

IBM-Defined System Symbols 

In the printer-oriented system, the following system 
symbols are available to the user. Notice that the sym- 
bols are the same as those used in the standard system, 
but some of the equivalences are changed. 

Symbol Equivalence Description 
9RCYL0 00513 These are the low-order po- 

9RCYL1 00515 sitions of four 2-digit fields 

9RCYL2 00517 which contain the numbers 

9RCYL3 00519 of cyHnders (00-99) where 

the disk access arm is repo- 
sitioned after a disk opera- 
tion in which a reposition 
has been requested. The 
four fields refer to drives 0, 
1, 2, 3, respectively. 

9CCYL0 02124 These are the low-order po- 

9CCYL1 02126 sitions of four 2-digit fields, 

9CCYL2 02128 similar to the previous four. 

9CCYL3 02130 However, these positions 

contain the cylinder num- 
bers of the current access 
arm positions (the position 



of the arm after the last 
disk lORT operation ) , 

Assembly Errors 

In addition to the sps n-D error codes and descriptions 
Hsted in a previous section of this manual, the follow- 
ing error conditions will cause an error typeout: 

1. A space specification that is either 0 or greater 
than 3 

2. A skip specification that is either 0 or greater 
than 12 

Either of the above conditions will be indicated by 
the error code ER5. 

If no Error Stop control record is included in the 
assembly, the processor will cause an erroneous space 
or skip specification to be set to 1. 

Error messages will appear on the typewriter, not 
on the printer. 

FORTRAN ll-D 

The FORTRAN n-D compiler has been modified to take 
advantage of the printer while compiling object pro- 
grams. Although the basic Fortran language remains 
unchanged, the specifications of two Fortran output 
statements have been modified, and five new control 
records have been added. Also, the printer has re- 
placed the console typewriter as the basic printed- 
output medium. 

Language 

PRINT — In the printer-oriented system, a print 
statement is used to print data on the 1443 Printer. A 
type statement is still used to type data on the con- 
sole typewriter. 

FORMAT — A format statement, when used in con- 
junction with a print statement, can provide for up 
to 120 characters for each printed line (or 144 char- 
acters if the system has been properly defined using 
the DUP Define Parameters routine). A format state- 
ment used with a type statement is still limited to 
87 characters for each typed line. 

carriage (X)NTR0L 

Each time a line of print is called for, the print output 

routine wiU initiate a carriage space or skip operation. 
The type of operation that is initiated is determined 
by the first digit (carriage control digit) in the record 
of data to be printed. The carriage operations that re- 
sult from the carriage control digit are as follows: 

blank — single space before printing 
0 — double space before printing 
1-9 — immediate skip to channels 1-9 

The carriage control digit is not printed. Therefore, 
to ensure that all of the data specified by the print 
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statement is printed out, the user should insert a IH 
specification in the corresponding format statement 
wherever a new line of print is called for. 

Example 

PRINT 2, A, B, J 
2 FORMAT ( IHO, F8.2, F8.3, 18 ) 

This specification will cause the printer to space 
twice before printing any data. Since the printer does 
not automatically space before printing, a single blank 
line will appear between the line being printed and 
the previous printed line. 

If more than one line of print is specified in the 
same format statement, the carriage control specifica- 
tion might appear as follows: 

5 FORMAT ( IHO, F8.2/1H0, E14.6 ) 
Control Records 

The five new control records that have been added to 
FORTRAN n-D for the printer-oriented Monitor system 

are: 

* LIST PRINTER 

* ARITHMETIC TRACE 

* IF TRACE 

* ALL STATEMENT MAP 
** XXXXXXXXX 

The first four in the list are compile-time options 
previously available through console switch settings. 
The last record is a means of obtaining a heading at 
the top of each printed page. 

The format of these records is the same as described 
in the section entitled Fortran ii-d control records. 

* LIST PRINTER — This record will cause program 
listings and symbol table output to be printed. 

* ARITHMETIC TRACE -This record will cause 
trace instructions to be compiled for arithmetic 
statements. 

* IF TRACE — This record will cause trace instruc- 
tions to be compiled for the purpose of tracing the 
value of the expression generated in an if statement. 

* ALL STATEMENT MAP -This record will cause 
the address of the first instruction generated for 
each statement to be printed. 

** XXXXXXXXX -This record will cause a heading 
to be printed at the top of each printed page. The 
Xs represent the heading. Up to 78 characters may 
be specified. 

Listings and Symbol Table Output 

Listings and symbol table output wiU appear on the 
printer instead of the console typewriter. The control 
records used to obtain these outputs are described 
above. The formats of the outputs have been changed 



to take advantage of the characteristics of the printer. 
The loader map also appears on the printer. 

Error Messages 

All error messages will appear on the printer; in ad- 
dition, error message Dl will also appear on the con- 
sole typewriter. Instructions to the operator, for ex- 
ample, LOAD suBNAM, wiU appear on the console 

typewriter. 

Subroutine error code F9 has been modified to in- 
clude any printer records that exceed 120-characters, 
or 144-characters if using the 144-print position sub- 
routines. 

Trace Routine 

If the trace routine is used, its output will appear on 
the printer. If the 144-print position subroutines are 
used, floating variables will appear in E-type format 
and fixed variables will appear in I-type format. 

Carriage Control Tape 

The carriage control tape, when used for assembling 
and compiling, should be punched in channel 1 to 
indicate the beginning of a page, and punched in 
channel 12 to indicate the end of a page. When the 
program senses the hole in channel 12, it automati- 
cally executes a skip to the channel 1 hole, which indi- 
cates the beginning of the next page. 

Arithmetic and I/O Subroutines 

The arithmetic and I/O subroutine sets used in the 
1620-1443 Monitor II System are longer than the sets 
used in the standard 1620 Monitor II System. This 
means that the starting addresses of Fortran object 
programs are higher in the printer-oriented systems, 
as shown below: 

120 Print 144 Print 

Standard Position Position 
System System System 

Using in-core variable 
length arithmetic 
and I/O sub- 
routines. 13000 13300 13500 

Using out-of-core 
variable length 
arithmetic and I/O 

subroutines. 07500 07800 08000 

Using in-core fixed 
length arithmetic 
and I/O sub- 
routines. 11200 11500 11700 

Using out-of-core 
fixed length arith- 
metic and I/O sub- 
routines. 07500 07800 08000 
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The 120-print position subroutines are a standard 
part of the 1620-1443 Monitor II System. If the 144- 
print position subroutines are desired, program num- 
ber 1620-LM-052 (card) or 1620-LM-053 (tape) 
should be loaded to disk in place of the standard set. 
The 144-print position subroutines can be loaded over 
the standard 120-print position routines. Care should 
be taken at this point to define the system for 144- 



print positions as previously described. After loading 
the 144-print position subroutines, the System Table 
Editor program must be executed due to the differ- 
ences in DIM Table entries between the 120- and 144- 
print position subroutines. If the 120-print position 
subroutines are later re-loaded. System Tables must 
also be loaded. 
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This program is used initially to load the Monitor II 
System from cards or paper tape into disk storage. 
Cards contain 75 columns of data followed by a 5- 
position sequence number. Sequence numbers are not 
present with tape data. 

The system to be loaded, in card or paper tape 
form, is comprised of several blocks of data, each 
with a unique deck number, a Heading Control rec- 
ord, and a 9's trailer record. With this arrangement 
it is possible to load each new block of data to a 
diflFerent area of disk storage as specified by the 
Heading Control records. For card input, the cards 
within a data block must be consecutively numbered 
in ascending sequential order. 

The combined input data, i.e., all data blocks, must 
be preceded by the Loader Program itself. This pro- 
gram is contained in approximately forty cards. If the 
sequence of the first four cards is inadvertently altered, 
the program may not operate correctly. The loader 
program is deck number 00, columns 30-31. All input 
cards, with the exception of the first four cards of deck 
00, are sequence checked by the loader. 



Data 



Columns 1-75 Data to be loaded to disk storage. 
76-80 Sequence number. 



Trailer 

Columns 



1-5 99999 

6 4= 
7-8 00 



Operating Procedures 
Switches 

The Disk, Parity, I/O and O'FLOW check switches 
should be in the progra.m position for either ciard or 
tape loading. For card or tape input, the program will 
halt after each trailer card if Program Switch 1 is off. 
If the switch is on, all data blocks are loaded without 
stopping the computer. Therefore, the user can stack 
input, if desired. 



Card Formats 

Heading Control 

Columns 1 Asterisk (*). 

2-7 Code word, Li>CNTR. 

9-14 Name of data block (program, 
table, etc. ) to follow. 

16-21 Address of first sector to be loaded. 

23-28 Address of last sector to be loaded. 

30-32 Deck number. This number, com- 
bined with the two positions 79-80, 
constitutes the sequence number. 
Blanks are interpreted as zeros. 
Therefore, the number 55 and a 
blank in columns 30-32 are inter- 
preted as sequence number 55000. 
The first card of the data block 
must then begin with the sequence 
number 55001 in columns 76-80. 



Paper Tape Loading 

1. Ready the paper tape reader with the Loader 
tape reel. 

2. Enter 36 00000 00300 from the typewriter. 

3. Depress the Release and Start keys. 

4. Ready the tape reader with the Data tape reel. 

5. Depress the 1620 Start key. 

6. Return to step 4 to load successive Data tapes. 

Note: When loading with Switch 1 on, the Loader 
will continue to read more data after each data group 
has been loaded. Therefore, several such data input 
groups may be present on one input reel. 

Card Loading 

1. Ready the card reader with deck number 00, 

Loader Program, The remaining decks may be 
stacked behind deck 00 as explained imder 
swrrcHES. 

2. Depress the 1622 Load key. 



136 



Messages 

FOR BOTH PAPER TAPE AND CARD LOADERS 

Message/Cause/Operation Action 



AAAAAA LOADED FROM FFFFFF TO LLLLLL, 
where AAAAAA is the name of a data block, FFFFFF 
is the address of the first sector loaded, and LLLLLL 
is the address of the last sector loaded. This message 
will type following each successful deck loading. If 
Program Switch 1 is on, it is an indication to the 
operator to load the next deck. 

DISK RD WR ERROR, START TO RETRY. This 
message will type if a disk write error occurs that 
cannot be corrected by one automatic retry. De- 
pressing the Start key will cause the write opera- 
tion to be retried twice. If the error is not correct- 
ed by the retries, the message will again be typed. 

RDER. This message will type if a paper tape or card 
reading error occurs. To correct the error, ready the 
reader with the corrected record and depress the 
Start key. ( An error card will be located next to the 
last card in the stacker when a halt occurs for a 
card reading error. ) 

CONTROL STATEMENT INVALID, RE-ENTER. 
This message will type if any of the following con- 
ditions are encountered in Heading Control record 
data. 

1. A misspelled code word. 

2. A record mark in column 6. 

3. First sector to be loaded is greater than last 
sector to be loaded. The user must supply a 
corrected control record and depress the 1620 
Start key. 



FOR CARD LOADER ONLY 

Message/Cause/ Operator Action 

SEQ. This message will type and the program will 
halt if any of the cards in the loader program, 
with the exception of the first four cards, is out of 
sequence. To resume loading, ( 1 ) restore the cards 
to their correct sequence and place them in the 
card hopper, (2) depress the Start keys on both 
the card reader and 1620 console. 

NNNNN CARD JEQ ERROR, CORRECT AND 
START, where NNNNN is the sequence number of 
the first data card out of consecutive ascending se- 
quence. After the message is typed, the program 
will halt. To restart the computer, (1) restore the 
sequence of data cards, starting with the card in 
error, (2) place the resequenced cards in the card 
read hopper, (3) depress the Start keys on both 
the card reader and 1620 console. 

NO TRAILER REC. CORRECT, RE-LOAD COM- 
PLETE DECK WITH CNTR REC, AND BR TO 
7404. This message will type and the program will 
halt if a 9's trailer record is missing following any 
data block. To restart the computer, the user 
should (1) restack the cards in the card reader so 
as to restart card reading with the Header card of 
the data block which had the missing trailer rec- 
ord. (2) Depress the Reset and Insert keys. (3) En- 
ter 49 07404 from the typewriter. (4) Depress the 
Release and Start keys. (5) Depress the card read- 
er Start key. 

TRAILER CARD SEQ ERROR, CORRECT AND 
START. This message will be typed if the sequence 
number on the trailer card is incorrect. The pro- 
cedure for restarting as the same is for any other 
card sequence error. 
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Table 15. Summary of SPS Declarative Operations 

NOTE: Except For the constants in DC, DSC, and DAC, all operands may be actual or symbolic. All symbolic length and address 
operands must be previously defined. All operands may use address adjustment. Remarl<$ may follow operands except in DSA statements. 
"Alpha Record Address" in the table refers to the leftmost position plus one of on alphameric field, whereas "Field Address" refers to the 
rightmost position of a field. The term "Numerical Record Address" refers to the leftmost position of a field. 



DECLARATIVE STATEMENT 
FORMAT 


AMOUNT ADDED TO LOCA- 
TION ASSIGNMENT COUNTER 
IF ADDRESS (A) IS BLANK 


VALUE STORED IN SYMBOL 
TABLE AS EQUIVALENT 
TO "SYMBOL" 


DATA FIELDS WHICH ARE 
LOADED AS A PART OF 
THE OBJECT PROGRAM 


LABEL 


OP 
CODE 


OPERANDS 


SYM 


DS 


L,A 


L (length). 

If L is blank O is oddod 

II k la WIUIII\^ W'ISI UUVN7U • 


A address. If A is blank, the 
field address from the location 
assignment counter is stored. 


None. 


SYM 


DSS 


L,A 


L (length). 

If L is blank, 0 is added . 


A address. If A is blank, the 
numerical record address from 
the location assignment counter 
is stored . 


None. 


SYM 


DAS 


L,A 


2 X L is added. If L is blank, 

yJ 15 uuuevi . 


A address must be odd. If A is 
blank, the alpha record address 
from the location assignment 
counter is stored. 


None. 


SYM 


DC 


L,C,A 


1 i< neif^An 
L 13 uuucu • 


A address. If A is blank, the 
field address from the location 
assignment counter is stored . 


C, the (numerical) constant . 


SYM 


DSC 


L,C,A 


L is added . 


A doar^sc If A nlnnk fn^ 

UW\JIW*a. II 19 WIUII^ IMC 

numerical record address from 
the location assignment counter 

19 9>l\JrcU • 


C, the (numerical) constant. 


SYM 


DVLC 


A, L,C, 
L,C, etc. 


L is added. 


First C address . 


C, C, etc., the (numerical) 
constants . 


SYM 


DAC 


L C A 


2 X L is added . 


A address must be odd. If A is 
blank, the alpha record address 
from the location assignment 
counter is stored. 


C, the (alphameric) constant. 


SYM 


DSA 


D,E,F,G, 
H, 1, J, K, 

L,M 


5 X (number of addresses) is 
added. 


Field address of the first address 
on list. 


A list of the actual addresses 
that correspond to D, E,F, etc. 


SYM 


DSB 


L,N,A 


Length of each element times 
the number of elements is added . 


A address. If A is blank, field 
address of the first element is 
stored . 


None. 


SYM 


DNB 


L,A 


L is added. 


A address. If A is blank, the 
field address from the location 
assignment counter is stored. 


Number of blank characters 
that equal L. 


SYM 


DDA 


A,D,F,S, 
M 


14, length of a disk control 
field. 


(Same as DSC) . 


D,F,S,M. 


SYM 


DGM 


A 


1 


A address or location counter. 


^ (Group Mark)'. 


SYM 


DOT 


P, A 


Length of table. 


A address or location 
counter. 


Octal table of powers 
to P followed by 
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Table 16. Summary of SPS Arithmetic Instructions 



NOTE: Indirect Addressing and indexing are allowable with all P address operands listed below. An * to the 
left of the Q operand indicates these features may be used with it . 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Add 


A 


21 


Storage address of units position 
of augend 


*Storage address of units 
position of addend 


Add Immediate 


AM 


n 


Same as code 21 


Q]] of instruction is units 
position of addend 


Subtract 


S 


22 


Storage address of units position 
of minuend 


*Storage address of units 
position of subtrahend 


Subtract 
Immediate 


SM 


12 


Same as code 22 


Q]] of instruction is units 
position of subtrahend 


Multiply 


M 


23 


Storage address of units position 
of multiplicand 


*Storage address of units 
position of multiplier 


Multiply 
Immediate 


MM 


13 


Same as code 23 


Q]] of instruction is units 
position of multiplier 


Load Dividend 


LD 


28 


Storage address in product area 
to which units position of field 
(dividend) is to be transmitted 


*Storage address of units 
position of dividend 


Load Dividend 


LDM 


18 


Same as code 28 


Q^^ of instruction is units 
position of dividend 


D ivide 


D 


29 


Storage address at which first 
subtraction of the divisor occurs 


*Storage address of units 
position of divisor 


Divide 
Immediate 


DM 


19 


Same as code 29 


Qy■^ of instruction is units 
position of divisor 


Floating Add 
(special feature) 


CAr\r\ 
rAUD 


U 1 


Storage address of units position 
of exponent of augend 


*Storage address of units 
position of exponent of addend 


Floating Sub- 
tract (special 
feature) 


FSUB 


02 


Storage address of units position 
of exponent of minuend 


*Storage address of units 
position of exponent of sub- 
trahend 


Floating 

Multiply 
(special feature) 


FMUL 


03 


Storage address of units position 
of exponent of multiplicand 


Storage address of units 
position of exponent of 
multiplier 


Floating 
Divide (special 
feature) 


FDIV 


0? 


Storage address of units position 

of exponent of dividend 


*Storage address of units 
position of exponent of divisor 



Table 17. Summary of SPS Internal Data Transmission Instructions 



NOTE: Indirect Addressing and indexing are allowable with all P address operands listed below. An * to the 
left of the Q address operand indicates these features may be used with it. 



OPERATION 


OPERATION CODES 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Transmit Digit 


TD 


25 


Storage address to which single 
digit is transmitted 


"Storage address of single digit 
to be transmitted 


Transmit Digit 
Immediate 


TDM 


15 


Same as code 25 


Q ] ] of instruction is the single 
digit to be transmitted 


Transmit Field 


TF 


26 


Storage address to which units 
position of field is transmitted 


"Storage address of units 
position of field to be trans- 
mitted 


Transmit Field 
Immediate 


TFM 


16 


Same as code 26 


Qll of instruction is the units 
position of the field to be trans- 
mitted 


Transmit Record 

Transmit Record 
No Record Mark 


TP 

TRNM 


O 1 

30 


Storage address to which high- 
order position of the record is 
transmitted 
Same as code 31 


"Storage address of high-order 
position of the record to be 
transmitted 
"Same as code 31 


Transfer 
Numerical Strip 


TNS 


72 


Storage address of rightmost 
position of alphameric field to 
be transmitted 


"Storage address of the units 
position of the numerical field 


Transfer 
Numerical Fill 


TNF 


73 


Storage address of rightmost 
position of alphameric field 


"Storage address of the units 
position of the numerical field to 
be transmitted 


Floating Shift 
Right (special 
feature) 


FSR 


08 


Storage address to which units 
(rightmost) digit of mantissa is 
transmitted 


"Storage address (rightmost) digit 
of mantissa to be transmitted 


Floating Shift 
Left (special 
feature) 


FSL 


05 


Storage address to which high- 
order digit of the mantissa is 
transmitted 


"Storage address of low-order 
digit of mantissa to be trans- 
mitted 


Transmit 
Floating 


TFL 


06 


Storage address to which units 
position of ex|3onent is transmitted 


"Storage address of units position 
of exponent of field to be trans- 
mitted 


Move Address 
(special feature) 


MA 


70 


Storage address of units position 
of 5-digit field to which data 
is transmitted 


"Storage address of units position 
of 5-digit field to be transmitted 


OR to Field 
(special feature) 


ORF 


92 


Storag9 address of leftmost 
position of first field for OR 
logic input 


"Storage address of leftmost 
position of second field for OR 
logic input 


AND to Field 
(special feature) 

Exclusive OR 
to Field (special 
feature) 


ANDF 

EORF 


93 

95 


Storage address of leftmost 
position of first field for AND 
logic 

Storage address of leftmost 
position of first field for 
Exclusive OR logic 


"Storage address of leftmost 
position of second field for AND 
logic 

"Storage address of leftmost 
position of second field for 
Exclusive OR logic 


Complement 
Octal Field 
(special feature) 


CPLF 


94 


Storage address of leftmost 
position of field to which data 
is transmitted 


"Storage address of leftmost 
position of field to be comple- 
mented 


Octal to 
Decimal Con- 
version (special 
feature) 
Decimal to 
Octal Conver- 
sion (special 
feature) 


OTD 
DTO 


96 
97 


Storage address of the units 
position of the power-of-eight 
table 

Storage address of the units 
position of the highest power-of- 
eight required 


"Storage address of leftmost 
position of field to be converted 

"Storage address of leftmost 
position of field to be converted 
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Table 18, Summary of SPS Logic (Branch and Compare) Instructions 



NOTE: Both the Bl (Branch Indicator) and BNI (Branch No Indicator) instructions require one of the switch 
or indicator codes listed in Table 21 as a Q address. The code indicates the switch or indicator to be inter- 
rogated for status. To relieve the programmer of having to code a Q address, unique mnemonics are included 
in SPS language for both Bl- and BNI-type instructions. For a unique mnemonic, the processor generates the 
actual machine language code 46 (Branch Indicator) or 47 (Branch No Indicator) and the Q address that 
represents the switch or indicator. 



Indirect Addressing and indexing are allowable with all P address operands listed below except Branch Back. 
An * to the left of the Q address operand indicates these features may be used with it. 



OPERATION 


OPERATION CODES 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Compare 


C 


24 


Storage address of units position 
of the field to which another 
field is compared 


*Stora9e address of units 
position of the field to be 
compared with the field at the 
P address 


Compare 
Immediate 


CM 


U 


Same as code 24 


Q]] of instruction is units 
position of the field to be 
compared with the field at the 
P address 


Branch 


B 


49 


Storage address of the leftmost 
digit of the next instruction to 
be executed 


Not used 


Branch and 
Adjust Assign- 
ment Counter 


B7 


49 


Storage address of the leftmost 
digit of the next instruction to 
be executed 


Not used. However, these five 
locations flrg used by the next 
instruction in sequence 


Branch 
No Flag 


BNF 


44 


Storage address of the leftmost 
digit of next instruction to be 
executed if branch occurs 


*Storage address to be 
interrogated for presence of a 
flag bit 


Branch No 
Record Mark 


BNR 


45 


Same as code 44 


*Stora9e address to be 
interrogated for presence of a 
record mark character 


Branch No 
Group Mark 


BNG 


55 


Same as code 44 


*Storage address to be 
interrogated for presence of a 
group mark character 


Branch on 
Digit 


BD 


43 


Same as code 44 


*Storage address to be 
interrogated for a digit other 
than zero 


Branch 
Indicator 


Bl 


46 


Storage address of leftmost 
position of next instruction to 
be executed if indicator tested 
is on 


QS and Q9 of instruction 
specify the program switch or 
indicator to be interrogated 
(see Table 21) 


Unique Branch 

Indicator 

Mnemonics: 










Branch High 


BH 


46 


Same as Bl 


None required 


Branch Positive 


BP 


46 


Same as Bl 


None required 


Branch Equal 


BE 


46 


Same as Bl 


None required 


Branch Zero 


BZ 


46 


Same as Bl 


None required 


Branch Over- 
flow 


BV 


46 


Same as Bl 


Nk>ne required 


Branch Any 
Data Check 


BA 


46 


Same as Bl 


None required 



Table 18. Summary of SPS Logic (Branch and Compare) Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Branch Not 
Low 


BNL 


46 


Same as Bl 


None required 


Branch Not 
Negative 


BNN 


46 


Same as Bl 


None required 


Branch Band 
A Selected 


BBAS 


46 


Same as Bl 


None required 


Branch Band 
B Selected 


BBBS 


46 


Some as Bl 


None required 


Branch Neither 
Band Selected 


BNBS 


46 


Same as Bl 


None required 


Branch Console 
Switch 1 On 


BC1 


46 


Same as Bl 


None required 


Branch Console 
Switch 2 On 


BC2 


46 


Some as Bl 


None required 


Branch Console 
Switch 3 On 


BC3 


46 


Same as Bl 


None required 


Switch 4 On 


BC4 


46 


Same as Bl 


None required 


Branch Last 
Card 


BLC 


46 


Same as Bl 


None required 


Branch Expon- 
ent Check 
(special feature) 


BXV 


46 


Same as Bl 


None required 


Branch No 
Indicator 


BNI 


47 


Storage address of leftmost 
posifion of next instruction to 
be executed if indicator tested 
is off 


QS and of instruction 
^^Gcify proQrQm switch or 
indicator to be interrogated 
(see Table 21) 


Unique Branch 
No Indicator 
Mnemonics; 










Branch Band A 
Not Selected 


BANS 


47 


Same as BNI 


None required 


Branch Band B 
Not Selected 


BBNS 


47 


Same as BNI 


None required 


Branch Either 
Band Selected 


BEBS 


47 


Same as BNI 


None required 


Branch Not 
High 


BNH 


47 


Same as BNI 


None required 


Branch Not 
Positive 


BNP 


47 


Same as BNI 


None required 


Branch Not 
Equal 


BNE 


47 


Same as BNI 


None required 


Branch Not 
Zero 


BNZ 


47 


Same as BNI 


None required 
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# Table 18. Summary of SPS Logic (Branch and Compare) Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Branch No 
Overflow 


BNV 


47 


Same as BNI 


None required 


Branch Not Any 
Data Check 


BNA 


47 


Some as BNI 


None required 


Branch Low 


BL 


47 


Same as BNI 


None required 


Branch 
Negotive 


BN 


47 


Same as BNI 


None required 


Branch Console 
Switch 1 Off 


BNCl 


47 


Same as BNI 


None required 


Bronch Console 
Switch 2 Off 


BNC2 


47 


Same as BNI 


None required 


Branch Console 
Switch 3 Off 


BNC3 


47 


Some as BNI 


None required 


Branch Console 
Switch 4 Off 


BNC4 


47 


Same as BNI 


None required 


Branch Not 
Last Card 


BNLC 


47 


Same as BNI 


None required 


Branch Not 
Exponent Checic 
(special feature) 


BNXV 


47 


Same as BNI 


None required 


Branch and 
Transmit 


BT 


27 


P address minus one is the 
storage address to which the units 
position of the Q field is trans- 
mitted. P address is leftmost 
digit of the next instruction to 
be executed 


^Storage address of units 
position of the field to be 
transmitted 


Branch and 

Transmit 

Immediate 


BTM 


17 


Same as code 27 


Q ) ] of instruction is units 
position of field to be trans- 
mitted 


Branch and 

Transmit 

Address 


BTA 


20 


Same as code 27 


Storage address of units 
position of the field to be 
transmitted 


Branch and 
Transmit Address 
immediate 


BTAM 


10 


Same as code 27 


Q] ] of instruction is units 
position of field to be trans- 
mitted 


Branch Back- 


DD 


42 


Not used 


Not used 


Branch Back 
and Adjust 
Assignment 
Counter 


BB2 


42 


Not used. However, these 
five locations ore used Isy 
the next instruction in 
sequence 


Not used. However, these 
five locations ore used by 
the next instruction in 
sequence 


Branch and 

Transmit 

Floating 


BTFL 


07 


P oddress minus one is the 
storage address to which the 
units position of the exponent 
portion of the Q field is trans- 
mitted. P is the storage address 
of the leftmost digit of the next 
instruction to be executed 


Storage oddress of units 
position of exponent of field to 
be transmitted 


Branch and 
Select 


BS 


60 


Storage address of the leftmost 
position of the next instruction 


Qjf specifies condition to be 
selected 


Unique Branch 
and Select 
Mnemonics: 










Branch and 
Select Indirect 
Addressing 


BSIA 


60 


Some as BS 


None required 
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Table 18. Summary of SPS Logic (Branch and Compare) Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Branch and 
Select No I/A 


BSNI 


60 


Same as BS 


None required 


Branch and 
Select Band A 
(special feature) 


BSBA 


60 


Same as BS 


None required 


Branch and 
Select Band B 
(special feature) 


BSBB 


60 


Same as BS 


None required 


Branch and 
Select No Index 
Register (special 
feature) 


BSNX 


60 


Same as BS 


None required 


Branch and 
Modify Index 
Register (special 
feature) 


BX 


61 


Same as BS 


**Storage address of units 
position of field to be added to 
selected index register 


Branch and 
Modify Index 
Register 
Immediate 
(special feature) 


BXM 


62 


Same as BS 


**Five digits of Q field are 
added to selected index register 


Branch 

Conditionally, 
Modify Index 
Register (special 
feature) 


BCX 


63 


Same as BS if (after modification) 
IX sign has not changed or 
result is not zero 


Same as BX 


Branch 

Conditionally, 
Modify Index 
Register 
Immediate 
(special feature) 


BCXM 


64 


Same as BCX 


Some OS BXM 


Branch and Load 
Index Register 
(special feature) 


BLX 


65 


Some as BS 


**Storage address of units 
position of 5-digit field to be 
loaded to selected index register 


Branch and 
Load Index 
Register 
Immediate 
(special feature) 


BLXM 


66 


Same as BS 


**Five digits of Q field are 
loaded to selected index register 


Branch and 
Store Index 
Register 

(special feature) 


BSX 


67 


Some as BS 


**Storage address of units 
position of field where selected 
index register data is to be 
stored 


Branch on Bit 
(special feature) 


BBT 


90 


Storage address of the leftmost 
position of next instruction if 
comparison is successful 


*Q8_^] specifies storage address 
of units position of field to be 
compdred with bits of thte Q7 
digit 


Branch on Mask 
(special feature) 


BMK 


91 


Same as code 90 


*Qg_]] specifies storage address 
of units position of field to be 
compared with Q7 digit 



**Specific index register is selected by flags over the Qg-IO pos'^^'ons of fhe instruction. 
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Table 19. Summary of SPS Input and Output Instructions 



NOTE: Indirect Addressing and indexing are allowable with all P address operands, where a P operand is 
required. None of the Q operands shown may be used with Indirect Addressing or Index Registers. 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read 

Numerically 


RN 


36 


Storage address at which leftmost 
(first) numerical character is 
stored 


Q3 and Q9 of instruction 
specify input unit 


Unique Read 
Numerically 
Mnemonics: 










Read 

Numerically 
Typewriter 


RNTY 


36 


Same as RN 


None required 


Read 

Numerically 
Paper Tape 


RNPT 


36 


Same as RN 


None required 


Read 

Numerically 
Card 


RNCD 


36 


Same as RN 


None required 


Write 

Numerically 


WN 


38 


Storage address from which left- 
most (first) numerical character 
is written 


Qg and Q9 of instruction 
specify output unit 


Unique Write 
Numerically 
Mnemonics: 










Write 

Numerically 
Typewriter 


WNTY 


38 


Same as WN 


None required 


Write 

Numerically 
Paper Tape 


WNPT 


38 


Same as WN 


None required 


Write 

Numerically 
^ara 


WNCD 


38 


Same as WN 


None required 


Dump 

Numerically 


DN 


35 


Some as WN 


Same as WN 


Unique Dump 
Numerically 
Mnemonics: 










Dump 

Numerically 
Typewriter 


DNTY 


35 


Same as WN 


None required 


Dump 

Numerically 
Paper Tape 


DNPT 


35 


Same as WN 


None required 


Dump 

Numerically 
Card 


DNCD 


35 


Same as WN 


None required 


Read 

Alphamerically 


RA 


37 


Storage address at which numeri- 
cal digit of leftmost (first) 
character is stored. (Zone digit 
of first character is at P minus 
one) 


Qg and Q9 of instruction 
specify input unit 



Table 19. Summary of SPS Input and Output Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS * 


Q ADDRESS 


Unique Read 

Alphamerically 

Mnemonics: 










Read Alpha- 
merically 
Typewrifer 


RATY 


37 


Same as RA 


None required 


Read Alpha- 
merically 
Paper Tape 


RAPT 


37 


Some as RA 


None required 


Read Alpha- 
merically Cord 


RACD 


37 


Same as RA 


None required 


Read Binary 
Paper Tope 
(special feature) 


RBPT 


37 


Same as RA 


None required 


Write Alpha- 
merically 


WA 


39 


Storage address of numerical 
digit of leftmost (first) character 
to be written. (Zone digit of 
first character is at P minus one) 


Q3 and Q9 of instruction specify 
output unit 


Unique Write 

Alphamerically 

Mnemonics: 










Write Alpha- 
merically 
Typewriter 


WATY 


39 


Same as WA 


None required 


Write Alpha- 
merically 
Paper Tape 


WAPT 


39 


Same as WA 


None required 


Write Alpha- 
merically Card 


WACD 


39 


Same as WA 


None required 


Write Binary 
Paper Tape 
(special feature) 


WBPT 


39 


Same as WA 


None required 


Control 


K 


34 


Not used 


Qq and Q9 specify input/output 
unit. Qi ^ specifies control 
functions 


Unique Control 
Mnemonics: 










Backspace 
Typewriter 


BKTY 


34 


Not used 


None required 


Tabulate 
Typewriter 


TBTY 


34 


Not used 


None required 


Index Type- 
writer 


IXTY 


34 


Not used 


None required 


Return Carriage 
Typewriter 


RCTY 


34 


Not used 


None required 


Space Type- 
writer 


SPTY 


34 


Not used 


None required 
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Table 19. Summary of SPS Input and Output Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Seek 


SK 


34 


Storage address of disk control 
field 


X07X1 


Read Disk/ 
WLRC 


RDGN 


36 


Same as SK 


X07X0 


Write Disk/ 
WLRC 


WDGN 


38 


Same as SK 


X07X0 


Check Disk/ 
WLRC 


CDGN 


36 


Same as SK 


X07X1 


Read Disk 
Track/WLRC 


RTGN 


36 


Same as SK 


X07X4 


Write Disk 
Track/WLRC 


WTGN 


38 


Same as SK 


X07X4 


Check Disk 
Track/WLRC 


CTGN 


36 


Same as SK 


X07X5 


Read Disk 


RDN 


36 


Same as SK 


X07X2 


Write Disk 


V/DN 


38 


Same as SK 


X07X2 


Check Disk 


CDN 


36 


Same as SK 


X07X3 


Read Disk 
Track 


RTN 


36 


Same as SK 


X07X6 


Write Disk 
Track 


WTN 


38 


Same as SK 


X07X6 


Check Disk 
Track 


CTN 


36 


Same as SK 


X07X7 



Table 20. Summary of SPS Miscellaneous Instructions 



NOTE: Indirect Addressing and indexing are allowable with all P or Q address operands that are marked with 
an *. 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Set Flag 


SF 


32 


*Storage address at which flag 
bit is placed 


Not used 


Clear Flag 


CF 


33 


^Storage address from which flag 
bit is cleared 


Not used 


Move Flag 


MF 


71 


*Storage address to which flag 
bit is moved 


*Storage address of flag bit to 
be moved 


Halt 


H 


48 


Not used 


Not used 


No Operation 


NOP 


41 


Not used 


Not used 



Table 21. 1620/1710 Indicator Codes for SPS BI-BNI 
Instructions 



NOTE: This table lisis only those indicators that do not have unique 
mnemonics. 



INIDIf'ATOR 1 


Q ADDRESS 


^7 ^8 






0 






0 


7 


MAP rhiArlf 


0 

V 


0 
0 


MRR-F f*h»clr 


] 


^ 


MBR-O Chicle 


1 
1 


7 


iji^Amfrtr Pnfrv/ 
wpcrarur tniry 


1 

1 


g 


Tarm 1 nn 1 AnnrACC I at* for 1 TA^ 1 
1 61 III 1 1 lU 1 r^UUI Cm I lUf \ If^ 






Check 


2 


1 


Function Register Check 


2 


2 


Analog Output (AO) Check 


2 


3 


Mask 


2 


6 


Customer Engineer (CE) Interrupt 


2 


7 


Analog Output Setup 


2 


8 


Multiplexer Busy 


2 


9 


Multiplex Complete 


4 


0 


Analog Output Setup Interrupt 


4 


1 


One Minute Interrupt 


4 


3 


One Hour Interrupt 


4 


4 


Any SIOC Interrupt 


4 


5 


Process Interrupt 1 


4 


8 


Process Interrupt 2 


4 


9 


Process Interrupt 3 


5 


0 


Process Interrupt 4 


5 


1 


Process Interrupt 5 


5 


2 


Process Interrupt 6 


5 


3 


Process Interrupt 7 


5 


4 


Process Inten-upt 8 


5 


5 


Process Inten-upt 9 


5 


6 


Process Interrupt 10 


5 


7 


Process Interrupt 1 1 


5 


8 


Process Interrupt 12 


5 


9 


Process Branch Indicator 1 


7 


0 


Process Branch Indicator 2 


7 


1 


Process Branch Indicator 3 


7 


2 


Process Branch Indicator 4 


7 


3 


Process Branch Indicator 5 


7 


4 


Process Branch Indicator 6 


7 


5 


Process Branch Indicator 7 


7 


6 



INDICATOR 


Q 


ADDRESS 






Q7 Qa 


Q9 


Qio 


Qi 


Process Branch Indicator 8 


7 


7 






Process Branch Indicator 9 


7 


8 






Process Branch Indicator 10 


7 


9 






Process Branch Indicator 1 1 


8 


0 






Process Branch Indicator 12 


8 


1 






Process Branch Indicator 13 


8 


2 






Process Branch Indicator 14 


8 


3 






Process Branch Indicator 15 


8 


4 






Process Branch indicator 16 


8 


5 






Process Branch Indicator 17 


8 


6 






Process Branch Indicator 18 


8 


7 






Process Branch Indicator 19 


8 


8 






Process Branch Indicator 20 


8 


9 






SIOC Output Envr 


6 


0 


4 


3 


Alert 


6 


0 


4 


5 


SIOC Unit 1 Response 


6 


0 


7 


0 


SIOC Unit 2 Response 


6 


0 


7 


1 


SIOC Unit 3 Response 


6 


0 


7 


2 


SIOC Unit 4 Response 


6 


0 


7 


3 


SIOC Unit 5 Response 


6 


0 


7 


4 


SIOC Unit 6 Response 


6 


0 


7 


5 


SIOC Unit 7 Response 


6 


0 


7 


6 


SIOC Unit 8 Response 


6 


0 


7 


7 


SIOC Unit 9 Response 


6 


0 


7 


8 


SIOC Unit 10 Response 


6 


0 


7 


9 


SIOC Unit 11 Response 


6 


0 


8 


0 


SIOC Unit 12 Response 


6 


0 


8 


1 


SIOC Unit 13 Response 


6 


0 


8 


2 


SIOC Unit 14 Response 


6 


0 


8 


3 


SIOC Unit 15 Response 


6 


0 


8 


4 


SIOC Unit 16 Response 


6 


0 


8 


5 


SIOC Unit 17 Response 


6 


0 


8 


6 


SIOC Unit 18 Response 


6 


0 


8 


7 


SIOC Unit 19 Response 


6 


0 


8 


8 


SIOC Unit 20 Response 


6 


0 


8 


9 


Disk Address Check 


3 


6 






wiVrbc 


3 


7 






Cylinder Overflow 


3 


8 






Any Disk Check 


3 


9 






Seek Complete 


4 


2 
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Table 22. 1710 SPS Operation Codes 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Select Address 
and Operate 


SAO 


84 


Not used 


Q 7 specifies operation; 
Q9 - Q) J specify a 
terminal address 


Unique Select 
Address and 
Operate 
Mnemonics: 










Select Address 


SA 


84 


Same as SAO 


07= 1; Q9 - Q]i 
specify terminal address 
of anolog input point 


Select Address 
and Contact 
Operate 


SACO 


84 


Same as SAO 


Q7=?;Q9-Q,, 
specify terminal address 
of contact point 


Select Analog 
Output Signal 


SAOS 


84 


Same as SAO 


07 = 3; Q9- Q] J 
specify terminal address 
of analog output 
channel 


Select Read 
Numerically 


SLRN 


86 


Depends upon particular 
operation 


Depends upon particular 
operation 


Unique Select 
Read Numeri- 










cally 

Mnemonics: 










Select TAS 


SLTA 


86 


Core location where 
high-order position of 
TAS is trdnsferred 


Vx7 1/ ^0 ^11 ^™ 

not used 


Select ADC 
Register 




oo 


Core location where 
high-order position of 
ADC register is trans- 
ferred 


0 ~r = 0- 0 f\ — 0 I 1 

\>ly — c.f Vjl9 '>*| 1 

specify analog input 
address 


Select Contact 
Block 


SLCB 


86 


Core location where 
status of the first contact 
scanned is stored 


©7=7; Q9 - Q| ] 
specifies the contact 
block address where 
reading begins 


Select Real- 
Time Clock 


SLTC 


86 


Core location where 
high-order digit of RTC 
is transfterred 


Q7 = 4; Qs - Q| 1 are 
not used 


Select ADC 
and Increment 
(1711 Model 1) 


SIAD 


86 


Core locotion where 
high-order position of 
ADC is transferred 


Q7 = 6; Qg - Qj ) are 
not used 


Select Manual 
Entry Switches 


SLME 


86 


Core location where 
Hi^fi^orclGr dlQit of 
Manual Entry switches 
is transferred 


Q7 = 8; Qg - Qj 1 are 


Branch Out Of 
Noninterrup- 
tible Mode 


BO 


47 


Address to be placed in 
IR-3 


Qg - Q9 = 00; Qji =0 


Branch Out Of 
Noninterrup- 
tible Mode and 
Load 


BOLD 


47 


Address to be placed in 
IR-1 


Qg - Q9 = 00; Q J ] = 1 


Mask 


MK 


46 


Not used 


Qg - Q9 = 00; Q 1 1 =1 


Unmask 


UMK 


46 


Not used 


Qg-Q9 = 00;Q|| =0 


Select Input 
Channel 


sue 


86 


Not used 


QlO-Qll specify the 
address of an SIOC input 
unit 



Table 22. 1710 SPS Operation Codes (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read Numerical 
Input Channel 


RNIC 


86 


Core storage location 
where data is to be read 


Q7 = 5; Qs - Q] ] not 
used 


Read Alpha- 
meric Input 
Channel 


RAIC 


87 


Same as RNIC 


Same as RNIC 


Write Numerical 
Output Channel 


WNOC 


88 


Core storage location 
from which data is to 
be written 


Q 10 *- Q 11 specify an 
SIOC output unit 


Write Alpha- 
meric Output 
Channel 


WAOC 


89 


Same as WNOC 


Same as WNOC 


Unique SIOC 
Branch indicator 
Mnemonics: 










Branch Output 
Record Mark 

Branch End of 
Message 


BOR 
BRE 


46 
46 


Core storage address of 
leftmost position of next 
instruction to be exe- 
cuted if indicator tested 
is on 

Same as BOR 


None required 
Same as BOR 


Branch Mode 
Shift 


BMC 


AA 
•rO 


dome as 


Same as BOR 


Branch Data 
Ready 


BiR 


46 


Same as BOR 


Same as BOR 


Branch SIOC 
Not Busy 


BCNB 


46 


JUme CIS DV./I\ 


dame as o^^i\ 


Unique SIOC 
Branch No 
Indicator 
Mnemonics: 










Branch No 
Output Record 
Mark 


BNOR 


47 


Core storage address of 
leftmost position of next 
instruction to be exe- 
cuted if indicator tested 
is off 


None required 


Branch No End 
of Message 


BNRE 


47 


Same as BNOR 


Same as BNOR 


Branch No 
Mode Shift 


BNMC 


47 


Same as BNOR 


Same as BNOR 


Branch No 
Data Ready 


BNIR 


47 


Same as BNOR 


Same as BNOR 


Branch No 
SIOC Not Busy 


BCB 


47 


Same as BNOR 


Same as BNOR 
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Table 23. SPS Subroutine Macro-instruction Execution Times 



NOTE: These execution times depict the total time from the encountering of a Macro-statement to returning to the calling program. 



SUBROUTINE 


AVERAGE EXECUTION TIME 


Floating Add 


Fixed length 

Average time = 4, 100 ^isec. 
Variable length 

Average time (in ^js) =70L + 3420 where L = length of mantissa 


Floating Subtract 


Fixed length 

Average time == 4,200 psec. 
Variable length 

Average time (in ns)= 70L + 3500 


Floating Multiply 


Fixed length 

Average time -5,300^sec. 
Variable length 

Average time (in jjs) = 36.6 L^ + 48L + 3240 


Floating Divide 


Fixed length 

Average time = 10,900 psec. 
Variable length 

Average time (in (js) --= 98. SL'^ + 200L + 3490 


Floating Shift Right 


Fixed length end variable length 

Average time (in ^s) = 2270 + 45 (A-B) 


Floating Shift Left 


Fixed length and variable length 

Average time (in \k) = 3830 + 350 (B-A) + 7.5 (B-A)^ 


Transmit Floating 


Fixed length and variable length 
Average time (in (js) ■" 530 + 15L 


Branch and Transmit Floating 


Fixed length and variable length 

Average time (in = 645 + 15L 


Floating Square Root 


Fixed length 

Average time = 29 ms 
Variable length 

Average time (in [xi) = lOOL^ + 2000L + 5500 


Floating Sine 


Fixed length 

Average time = oo.o ms 
* Variable length 

Average time (in [is) = 5l3 + 320l2 + 3100L + 4900 


Floating Cosine 


Fixed length 

Average time = 33.3 ms 
'Variable length 

Average time (in \is) = 5L'^ + 296l2 + 2950L + 5400 


Floating Arctangent 


Fixed length 

Average time = 31 .7 ms 
Variable length 

Average time (in (js) =35i^ + 570L2 +400L + 7500 


Floating Exponential (Natural) 


Fixed length 

Average time = 38 ms 

NOTE; Add 11.4 ms to the average time if the argument is negative. 
**Variable length 

Average time (in jis) = 21l3 + 240l2 + 6000L - 1300 


Floating Exponential (Base 10) 


Fixed length 

Average time = 39.8 ms 
NOTE: Add 1 1 .4 ms to the average time if the argument is negative. 

** Variable length 

Average time (in (js) = 23L'^ + 240L^ + 6050L - 1300 


Floating Logarithm (Natural) 


Fixed length 

Average time 51.7 ms 
Variable length 

Average length (in jjs) = 36.5L"' + 5<?0l^ + 1500L + 8600 


Floating Logarithm (Base 10) 


Fixed length 

Average time = 56.6 ms 
Variable length _ 2 

Average time (in ps) =33.5L + 680L ^ 2100L + 5900 



*NOTE: These execution times are for arguments less than 2it . Arguments greater than 2ir are reduced by subtractions of 2ir until withi'ti 
range. Therefore, the time required to perform these subtractions should be added to the average time required for an argument less than 2ii . 

** Add time for VL Divide if the argument is negative. 



Table 24. 1620 Character Coding 



ALPHAMERIC 
MODE 



NUMERICAL 
MODE 



Character 


Input 


Core Storage 


Output 


Typewriter 


Tape 


Card 


Alpha 


Num 


Typewriter 


Tape 


Card 


(Blank) 


(Space) 


C 


(Blank) 


C 


C 


(Space) 


C 


(Blank) 


. (Period) 


* 


X0821 


12,3,8 


C 


3 


• 


X0821 


12,3,8 


) 


) 


X0C84 


12, 4,8 


C 


4 


) 


XOC 84 


12,4,8 


+ 


+ 


XOC 


12 


1 


C 


+ 


XOC 


12 


$ 


$ 


XC821 


11,3,8 


1 


3 


$ 


XC821 


11,3,8 


* 


* 


X84 


11,8,4 


1 


4 


* 


X84 


11,4,8 


- (Hyphen) 




X 


11 


2 


C 




X 


11 


/ 


/ 


OCl 


0,1 


2 


1 


/ 


OCl 


0,1 


, (Comma) 




0C821 


0,3,8 


2 


3 




0C821 


0,3,8 


( 


( 


084 


0,4,8 


2 


4 


( 


084 


0,4,8 


= 


- 


821 


3,8 


3 


3 


- 


821 


3,8 


@ 


@ 


C84 


4,8 


3 


4 


@ 


C84 


4,8 


A-l 


A-l 


XO, 1-9 


12, 1-9 


4 


1-9 


A-l 


XO, 1-9 


12,1-9 


O(-) 


(None) 


(None) 


11,0 


5 


C 


- (Hyphen) 


X 


11,0 


J-R 


J-R 


X, 1-9 


11,1-9 


5 


1-9 


J-R 


X, 1-9 


11,1-9 


1-9 (-) 


J-R 


X, 1-9 


11,1-9 


5 


1-9 


J-R 


X,l-9 


11,1-9 


S-Z 


S-Z 


0,2-9 


0,2-9 


6 


2-9 


S-Z 


0,2-9 


0,2-9 


0 (+) 


0 


0 


Oor 12,0 


7 


C 


0 


0 


0 


1-9 (+) 


1-9 


1-9 


1-9 


7 


1-9 


1-9 


1-9 


1-9 


+ 


+ 


082 


0,2,8 


C 


C82 


(Stop) 


EOL 


0,2,8 




















(Blank) 


(Space) 


C 


(Blank) 




C 


0 


0 


0 


0 (+) > 


0 


0 


0 




C 


0 


0 


0 


0 (-) 


0 


X,XOC 


11,0 




F 


0 


X 


11 


1-9 (+) 


1-9 


1-9 


1-9 




1-9 


1-9 


1-9 


1-9 


1-9 (-) 


T-9 


X,l-9 


11,1-9 




F,l-9 


1-9 


X,l-9 


11,1-9 






082 


A O O 

0,2,8 




Co/ 


(btop, WN; 
$ (DN) 


tCJL(WN) 
082 (DN) 


A O O 

0, ^8 




? 


X82 


11,8,2 




F82 




X82 


11,8,2 




% 


08421 


0,7,8 




*C8421 




08421 


0,7,8 


i 


$ 


X8421 


12,7,8 




F8421 


i 


X8421 


12,7,8 


Num 
Blank t 


@ 


C84 


4,8 




C84 


@ 


C84 


(Blank) 



t For Card Format Use Only 

* Recorded as 0,8,4,2, 1 in disk storage 
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Table 25. Core Storage Data Resulting From Heading Alphameric Card 
Data with RN Instruction 



Alpha 

Character 


Bits Entered into Core Storage 
by Read Numerically Instruction 


C 


F 


8 


4 


2 


1 


A 












X 


B 










X 




C 


X 








X 


X 


D 








X 






E 


X 






X 




X 


F 


X 






X 


X 




G 








X 


X 


X 


H 






X 








I 


X 




X 






X 


J 


X 


X 








X 


K 


V 
A 


V 

A 






V 
A 




L 




X 






X 


X 


M 


X 


X 




X 






XT 




X 




X 




X 


o 




X 




X 


X 




p 


X 


X 




X 


X 


X 


X 


X 


X 


X 








R 




X 


X 






X 


S 










X 




T 


X 








X 


X 


U 








X 






V 


X 






X 




X 


w 


X 






X 


X 




X 








X 


X 


X 


Y 






X 








Z 


X 




X 






X 



Alpha 
Character 


Bits Entered into dnv Storage 
by Read Numerically Instruction 


C 


F 


8 


4 


2 


1 


0 


X 












1 












X 


2 










A- 




3 


X 








X 


X 


4 








X 






5 


X 






X 




X 


6 


X 






X 


X 




7 








X 


X 


X 


8 






X 








g 


X 




X 






X 


/ 












X 


' . ( period ) 






X 




X 


X 


' , ( comma ) 






X 




X 


X 


@ 


X 




X 


X 






( 


X 




X 


X 








X 




X 


X 












X 




X 


X 


* 




X 


X 


X 










X 










+ 


X 












Card 11 0 




X 










I/O 

Only 12.0 


X 














X 




X 




X 






X 


X 


X 




X 


X 


Blank 


X 













' intt-rpretcd as Record Mark on WN and TR insi ructions. 
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Appendix B 



Alphabetic Listing of All Messages 



Message 


Program 


Pages 


XXXX DO TABLE FULL 


FORTRAN 


120 


XXXX IMPROPER DO NESTING 


FORTRAN 


120 


XXXX MIXED MODE 


FORTRAN 


120 


XXXX SYMBOL TABLE FULL 


FORTRAN 


120 


XXXXX ALABEL + XXXX ERN 






(see Table 6) 


SPS 


86 


XXXXX CARD SEQ ERROR, 






CORRECT AND START 


Loader 


137 


XXXXX CORES USED 






XXXXX NEXT COMMON 






END OF COMPILATION 


FORTRAN 


122 


XXXXX LDl 


Supervisor 


24 


XXXXX NAME 


FORTRAN 


126 


XXXXX SECTORS OF DATA 






COPIED FROM XXXXXX TO 






XXXXXX 


DUP 


35 


XXXXXX LOADED FROM 






XXXXXX TO XXXXXX 


Loader 


137 


XX XXXXX OVERLAP 


FORTRAN 


129 


XXXXXXXXXX TYPE CHANGE 


DUP 


29 


XXXXXX XXXXX XXXXX LOADED 


FORTRAN 


128 


XXXX + XXXX ERROR N 


FORTRAN 


120 


ALREADY DEFINED 


SPS 


91 


AND FILE PROTECTED 


DUP 


35 


BAD DISK WRITE. RESET 






START 


Supervisor 


22 


CANNOT RESTORE COMMON - 






RESET AND START TO RETRY 


Supervisor 


15 


CDP ERR 


Supervisor 


21 


CDR ERR 


Supervisor 


21 


CONDITION IGNORED 


Supervisor 


15 


CONTROL STATEMENT INVALID, 






RE-ENTER 


Loader 


137 


CORE CAPACITY EXCEEDED BY 






XXXXX LOCATIONS PROGRAM 






IS TERMINATED 


SPS 


90 


CORRECTIONS HAVE NOT 






BEEN ENTERED 


DUP 


30 


DISK RD WR ERROR, START 






TO RETRY 


Loader 


137 


DISK SECTOR XXXXXX 






CORRECTED 


DUP 


30 


DK LOADED XX , , .XX 


DUP 


28, 41 


DSK ERR XXXXX 06 07 16 17 36 






37 38 


Supervisor 


21 


DSK OFL 


Supervisor 


21 


DUP * ERROR 01 (01 through 24) 


DUP ; 


38, 39, 40 


DUP * ERROR 51 (51 through 61) 


DUP 


40 


DUP * TURN OFF WRITE 






ADDRESS KEY, START 


DUP 


28 



Message 


Program 


Pages 


DUP * TURN ON WRITE 






ADDRESS KEY, START 


DUP 


28 


END OF ASSEMBLY 






XXXXX CORE POSITIONS 






REQUIRED XXXXX 






STATEMENTS PROCESSED 


SPS 


87 


END OF JOB 


Supervisor 


10, 15 


ENT ERROR 06 07 16 17 36 37 38 


Supervisor 


21 


ENTER DUP CNTRL RFC 


DUP 


28 


ENTER MONITOR CONTROL 






RECORD 


Supervisor 


15, 17 


ER Dl (Dl through G7) 


FORTRAN 


130 


ERROR LI (LI through LIO) 


FORTRAN 


128 


ERROR X 


FORTRAN 


120 


ERROR IN FIELD AT COL. XX. 






SET SW 4 TO IGNORE, OFF TO 






RE-ENTER CARD 


Supervisor 


15 


ERROR IN FIELD AT COLUMN 






XX. PHASE TERMINATED 


Supervisor 


16 


ERROR, INVALID CONTROL 






RECORD 


FORTRAN 


118 


ERROR, INVALID OUTPUT 






UNIT CODE 


FORTRAN 


119 


EXCEEDED SPECIFIED 






CAPACITY BY XXXXX 


SPS 


89 


EXECUTION 


Supervisor 


15 


EXECUTION INHIBITED 


FORTRAN 


129 


EXECUTION IS INHIBITED 


Supervisor 


17 


ERROR, F OR K OUTSIDE RANGE 


FORTRAN 


119 


FORTRAN LIBR NAME ENTERED 






XXXXXXXXXX 


DUP 


38 


FLIPER XXXXX OVERLAP 


FORTRAN 


129 


IMP ERR 


Supervisor 


22 


IMPROPER IND CODE IN 






SUBR XXXX 


SPS 


90 


JOB ABANDONED 


FORTRAN 


129 


JOB CARD GROUP ONLY 


Supervisor 


15 


LD 2 


Supervisor 


24 


LD 3 


Supervisor 


24 


LD 4 


Supervisor 


24 


LOAD SUBNAM 


FORTRAN 


129 


MAP ERR XXXXX XXXX 


Supervisor 


22 


MAX N2 ALLOWABLE XXXXX 


FORTRAN 


130 


MOD ERR XXXXX 


Supervisor 


22 


MORE THAN 5 CYLINDERS OF 






RELOADABLE OUTPUT SSW 4 






ON TO DUMP OUTPUT, OFF 






TO CONTINUE, NO OUTPUT 


SPS 


89 


MUST RELOAD 


Supervisor 


23 


NAME XXXXX OVERLAP 


FORTRAN 


129 
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Form C26-5774-0 
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Message 


Program 


Pages 


Message 


Program 


Pages 


NO DIM ENTRY FOR 






SECTOR 


DUP 


29 


SUBROUTINE 


SPS 


89 


SECTION NUMBER ILLEGAL, 






NO ENTRY FOR SUBROUTINE 


FORTRAN 


129 


START TO RE-ENTER * DALTR 


DUP 


29 


NO ROOM IN TABLE 


SPS 


91 


SECTOR ADDRESS ILLEGAL 






NO TRAILER REG. CORRECT, 






START TO RE-ENTER * DALTR 


DUP 


29 


RELOAD COMPLETE DECK 






SEQ 


Loader 


137 


WITH CNTR REG, AND BR TO 






SUBR NOT LOCATED IN 






ri Ar\A 

7404 


LiOader 


lot 


SUBROUTINE MAP 


SPS 


90 


Vr/^T TM TAUT 17 


SPS 


Q1 


SYSTEM DIM ERROR PHASE 






Ul5jiliL.l JL*1M tLnnUn. JrxlAk>l!i 






TERMINATED 


Supervisor 


17 


1 rLrlJVliiN A 1 cAJ 


Supervisor 


lo 


TRAILER CARD SEQ ERROR, 




/~*TlTTrr~"T' MA A/ft? TTBUr^'D 'DlTACl? 

yjVt^MuK^v INAJVirli CiixrvUn, IrxlAoJcj 






CORRECT AND START 


Loader 


137 


TTTRMTlMATFri 


O UUCI VlaUi 


17 

X 1 


TRP ERR 


Supervisor 


22 








23 








TRP ERROR MUST RELOAD 
1 TYP ERR XXXXX 06 07 16 17 36 
1 37 38 


Supervisor 


TCNORF OFF TO RFCOMPABF 


fill nf*fVi Crti" 


15 


Supervisor 


21 


PTR ERR XXXXX 06 07 16 17 36 




37 38 


Supervisor 


21 


TYPE-IN EXCEEDS SECTOR 




30 


FTP ERR XXXXX 06 07 16 17 36 




LENGTH, START 


DUP 


37 38 


Supervisor 


21 


UNDEFINED SYMBOL XXXXX 


SPS 


91 


RDER 


Loader 


137 


WRITE AND SAVE (SEEK 






RE-ENTER STATEMENT 


SPS 


87 


START STOP) 


DUP 


29 


RE-ENTER OPERANDS 


SPS 


87 


WRITE AND ZERO (SEEK 






SECTION 


DUP 


29, 30 


START STOP) 


DUP 


29 



NOTE: X's represent variable characters. 
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Index 



Page 



Absolute format - 4 

ACCEPT statement .-- - 105 

ACCEPT TAPE statement 105 

Add (A) instruction ^ --- 61, 139 

Add Immediate (AI) instruction 61, 139 

Adding macro-instructions to processor 77, 91 

Adding subroutines 

FORTRAN : 131 

SPS 77 

Address 

actual, 49 

adjustment 50 

asterisk - 49 

equivalents for PICK, 71 

symbolic, : 49 

types of, used as operands 49 

Address Check indicator 23 

Altering assignment of disk storage drives 12 

Alter Sector routine 29 

Analog Output Check code 148 

Analog Output Setup code 148 

And to Field (AND F) instruction 140 

Arguments (FORTRAN) 108 

Arithmetic Instructions summary 139 

Arithmetic mode 94 

Arithmetic precision (FORTRAN) 96 

Arithmetic statement functions 114 

Arithmetic statements 98 

Arithmetic subroutines 

FORTRAN 124 

SPS 66 

Arithmetic subroutine macro-instructions 67 

Arrays 96, 104 

Assignment of DIM entries and/or names, rules for 41 

ASSEMBLE RELOCATABLE, SPS Control record 85 

Assignment of System DIM numbers 5, 134 

Asterisk 

FORTRAN 97 

SPS 46, 49 

At(@) sign (special character) 47, 49 

Automatic Fix/Float „. 113 

Availability list 32 

Backspace Typewriter (BKTY) instruction 146 

BEGIN CARD INPUT, SPS Control record 85 

BEGIN PAPER TAPE INPUT, SPS Control record 85 

BEGIN TYPEWRITER INPUT, SPS Control record 85 

Blank character 47 

headed by, 64 

Branch and Adjust Assignment counter (B7) 51, 141 

Branch and Load Index Register (BLX) instruction 144 

Branch and Load Index 

Register Immediate (BLXM) instruction 144 

Branch and Modify Index Register (BX) instruction 144 
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Fage 



Branch and Modify Index 

Register Immediate (BXM) instruction ■ 144 

Branch and Select (BS) instruction 143 

Branch and Select Band A (BSBA) instruction 144 

Branch and Select Band B (BSBB) instruction 144 

Branch and Select 

Indirect Addressing (BSIA) instruction 143 

Branch and Select No I/A (BSNI) instruction 144 

Branch and Select 

No Index Register (BSNX) instruction 144 

Branch and Store Index Register (BSX) instruction 144 

Branch and Transmit (BT) instruction 143 

Branch and Transmit Floating 

instruction (BTFL) 143 

subroutine (BTFS) 75 

Branch and Transmit Immediate (BTM) instruction 143 

Branch Any Data Check (BA) instruction 141 

Branch Back and Adjust Assignment Counter (BB2) .... 51, 143 

Branch Back (BB) instruction 143 

Branch Band A Not Selected (BANS) instruction 142 

Branch Band B Not Selected (BBNS) instruction 142 

Branch Band A Selected (BBAS) instruction 142 

Branch Band B Selected (BBBS) instruction 142 

Branch Conditionally, Modify Index 

Register (BCX) instruction 144 

Branch Conditionally, Modify Index 

Register Immediate (BCXM) instruction 144 

Branch Console Switch instructions 

(BCl, BC2, BC3, BC4) 142, 143 

Branch Data Ready (BIR) instruction 150 

Branch End of Message (BRE) instruction 150 

Branch Equal (BE) instruction 141 

Branch Exponent Check (BXV) instruction 142 

Branch High (BH) instruction 141 

Branch Indicator (BI) instruction 141 

Indicator Codes summary „ 148 

Branch instructions 61, 141-143 

Branch Last Card (BLC) instruction 142 

Branch Low (BL) instruction 143 

Branch Mode Shift (BMC) instruction 150 

Branch Negative (BN) instruction 143 

Branch No Data Ready (BNIR) instruction 150 

Branch No End of Message (BNRE) instruction 150 

Branch No Flag (BNF) instruction 141 

Branch No Group Mark (BNG) instruction 141 

Branch No Indicator (BNI) instruction 142 

Indicator Codes summary 148 

Branch No Mode Shift (BNMC) instruction 150 

Branch No Output Record Mark (BNOR) instruction 150 

Branch No Overflow (BNV) instruction 143 

Branch No Record Mark (BNR) instruction 141 

Branch No SIOC Not Busy (BCB) instruction 150 

Branch Not Any Data Check (BNA) instruction 143 

Branch Not Equal (BNE) instruction 142 

Branch Not Exponent Check (BNXV) instruction 143 

Branch Not High (BNH) instruction 142 



Page 

Iranch Not Last Card (BNLC) instruction 143 

Iranch Not Low (BNL) instruction 142 

Iranch Not Negative (BNN) instruction 142 

Jranch Not Positive (BNP) instruction 142 

Jranch Not Zero (BNZ) instruction 142 

Jranch on Bit (BBT) instruction 144 

Jranch on Mask (BMK) instruction 144 

Jranch on Digit (BD) instruction 141 

Jranch Operands 51 

Jranch Out of Noninterruptible Mode (BO) instruction .... 149 

Jranch Out and Load (BOLD) instruction 149 

Jranch Output Record Mark (BOR) instruction 150 

Jranch Overflow (BV) instruction 141 

Jranch Positive (BP) instruction 141 

Branch SIOC Not Busy (BCNB) instruction 150 

Branch Zero (BZ) instruction 141 

3ALL EXIT Unkage 18 

CALL EXIT statement 

FORTRAN 103 

SPS 81 

CALL LINK hnkage 17 

CALL LINK statement 

FORTRAN 117 

SPS 81 

CALL LOAD 

linkage 17 

macro-statement 81 

CALL statement 

FORTRAN 116 

SPS 81 

Card I/O 19 

Card read error 21 

Card write error 21 

Check Disk (CDN) instruction 147 

Check Disk Track (CTN) instruction 147 

Check Disk Track/WLRC (CTGN) instruction 147 

Check Disk/WLRC (CDGN) instruction 147 

Clear Flag (CF) instruction 147 

Coding sheet 

FORTRAN 94 

SPS 44 

Commas 46 

Comments 

FORTRAN 93 

SPS 

with asterisk 46 

see Remarks 

Comments Monitor Control record - 12 

COMMON statement - 107 

Communications Areas 25, 36, 37 

Compare Immediate (CM) instruction 141 

Compare (C) instruction - 141 

Complement Octal Field (CPLF) instruction 140 

Compilation Process 117 

Constants 

FORTRAN 95 

SPS^ 

at sign 47 

Define Alphameric Constant (DAC) 55 

Define Constant (DC) instruction 54 

Define Special Alphameric Constant (DSAC) 56 

Define Special Constant (DSC) 55 



Page 

Define Variable-Length Constant (DVLC) 55 

CONTINUE statement 102 

Control (K) instruction 146 

Control Card Formats 10 

Control operation 

codes 43, 146 

Control record trap error 22 

Control records 

DUP 28, 38 

FORTRAN 118 

MONITOR 8 

SPS 85 

Control statements (FORTRAN) 99 

Core storage requirements 7 

Customer Engineer (CE) Interrupt code 148 

Cylinder Overflow Error 21 

Cylinder Overflow indicator 22 

DALTR, DUP control record 29 

DATA control record 127 

Data transmission subroutine macro-instructions 67 

Data transmission subroutines 66 

DCOPY, DUP control record 35 

DDUMP, DUP control record 31 

Decimal Octal Conversion (DTO) instruction 140 

Declarative operations 

card format (list) 87 

codes 43, 52 

summary 138 

Define Alphameric Constant (DAC) statement 55 

at sign 47 

blank character 47 

Define Alphameric Symbol (DAS) statement 54 

Define Card Alphameric (DCA) 83 

Define Card Numerical (DCN) 83 

Define Disk without WLRC (DD) 83 

Define Disk with WLRC (DDW) 83 

Define Constant (DC) statement 54 

at sign 47 

Define Disk Address (DDA) statement 57 

Define Disk Pack Label Routine 37 

DEFINE DISK statement 108 

Define END (DEND) statement 63 

Define FORTRAN Library Subroutine Name routine 38 

Define Group Mark (DGM) statement 58 

Define Message (DMES) statement 58 

Define Numerical Blank (DNB) statement 57 

DEFINE OP C0I3E, SPS Modification Control record .... 91 

Define Origin (DORG) statement 62 

Define Paper Tape Alphameric (DPTA) 43 

Define Paper Tape Alphameric (DPTA) 83 

Define Paper Tape Numerical (DPTN) 83 

Define Parameters routine 36 

Define Special Constant (Numerical) DSC statement 55 

Define Special Symbol (Numerical) DSS statement 53 

Define Symbol (Numerical) DS statement 52 

Define Symbolic Address (DSA) statement 56 

Define Symbolic Block (DSB) statement 57 

DEFINE SYSTEM SYMBOL TABLE, SPS Modification 

Control record 91 

Define Typewriter Alphameric (DTA) 83 

Define Typewriter Numerical (DTN) 83 

Define Variable-Length Constant (DVLC) statement 55 
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DELET, DUP control record 36 

DELETE OP CODE, SPS Modification Control record .... 91 

Delete Programs routine 36 

DFINE, DUP control record 36 

DFLIB, DUP control record 38 

DIM entry 5, 41 

DIM numbers for Monitor System 5 

DIM taHe 5 

DIMENSION statement 107 

Disk control field 19 

Disk I/O constants 18 

Disk I/O options 18 

Disk pack identification numbers 13, 37 

Disk pack label 6, 7, 37 

Disk storage I/O 19 

Disk storage requirements 4 

Disk Utility Program 27 

Disk-to-Disk routine 35 

Disk-to-Output routine 30 

Divide (D) instruction 139 

Divide Immediate (DM) instruction 139 

Divide subroutine 73 

Divisor, incorrect positioning 74 

DLABL, DUP control record 38 

DLOAD, DUP control record 33 

DO statement 101 

Dollar sign (special character) 47, 64 

DOT Declarative Statement 59 

DREPL, DUP control record 34 

Drive code 4, 12, 20, 58 

Dummy variables 115, 116 

Dump Numerically Card (DNCD) instruction 145 

Dump Numerically (DN) instruction 145 

Dump Numerically Paper Tape (DNPT) instruction 145 

Dump Numerically Typewriter (DNTY) instruction 145 

DUP, Monitor Control record 10, 11 

Duplicate symbols (labels) 63, 132 

DWRAD, DUP control record 28 

END statement 103 

End-of-Job Monitor Control record 10, 12 

End-of-line character 47 

ENDLIB, SPS Modification Control record 91 

Entry Check error 21 

Entry joints of I/O routine 17 

Equal sign (SPS special character) 49 

EQUIVALENCE statement 107 

Equivalence table 5, 32 

Error checking, FORTRAN 130 

Error correction (SPS) 

assembly time 86 

Error correction codes, I/O Error routine 20 

Error Count Retrieval routine 23 

Error detection and correction, DUP 38 

Error Messages — (see Appendix B) 154 

ERROR STOP, SPS control record 85 

Evaluation of arguments (subroutines) 

FORTRAN 113 

SPS 67 

Exclusive OR to Field (EORF) instruction 140 

Execution times (SPS subroutines) 151 

Exponents 

FORTRAN 94 
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SPS 70 

Expressions, FORTRAN 97 

FANDK Control record 118 

FETCH statement 105 

File protected programs 6 

FIND statement 105 

Fixed-length mantissa subroutines (SPS) 67 

Fixed-Point Divide (FD) subroutine 73 

Fixed-point variables (FORTRAN) 96 

Flag indicator operand 47 

in immediate instructions 47 

in indirect addressing 47 

Flags, set 47 

Floating Add 

instruction (FADD) 139 

subroutine (FA) 71, 72 

Floating Arctangent (FATN) subroutine 76 

Floating Cosine (FCOS) subroutine 76 

Floating Divide 

instruction (FDIV) 139 

subroutine (FD) 73 

Floating Exponential (Base 10) FEXT subroutine 76 

Floating Exponential (Natural) FEX subroutine 76 

Floating Logarithm (Base 10) FLOG subroutine 77 

Floating Logarithm (Natural) FLN subroutine 77 

Floating Multiply 

instruction (FMUL) 139 

subroutine (FM) 73 

Floating-point arithmetic 69, 94 

Floating-point variables (FORTRAN) 96 

Floating Shift Left 

instruction (FSL) 140 

subroutine (FSLS) 75 

Floating Shift Right 

instruction (FSR) 140 

subroutine (FSRS) 74 

Floating Sine (FSIN) subroutine : 76 

Floating Square Root (FSQR) subroutine 75 

Floating Subtract 

instruction (FSUB) 139 

subroutine (FS) 72 

FOR Monitor Control record 9, 11 

Format of DIM entry 5 

FORMAT Statement 109 

FORTRAN and SPS Output 41 

FORTRAN Control records 118 

FORTRAN II-D :. 93 

FORTRAN II-D language 93 

FORTRAN subroutine error codes 130 

FORX Monitor Control record 9, 11 

Full track disk operation 20 

Function Register Check Indicator code 148 

FUNCTION statement 115 

Functional subroutines 67 

GET macro-statement 81 

GO TO statements 99 

Halt (H) instruction 147 

Halt at core address 00467 22 

Head character 64 

Head statement 63 
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Heading 

for combining programs 63 

in nesting 64 

High indicator 25 

I/O constants 18 

I/O Declarative statements 82 

I/O Error routine 20 

I/O routine 17 

ID NUMBER dddd, SPS control record 86 

Identification records, FORTRAN 122, 132 

IF statement 100 

IF (SENSE SWITCH) statement 100 

Immediate-type instructions • 47 

Imperative operations 60 

arithmetic 60, 139 

branch 61, 141 

card format (list) 89 

codes, 1710 149 

input/output 62, 145 

internal data transmission 61, 140 

miscellaneous 62, 147 

Index, DO 101 

Index Register 51 

Index Typewriter (IXTY) instruction 146 

Indicator codes 23, 24 

Indicator codes (1620/1710) 147 

Indirect addressing 4 

Initializing the Monitor System 4 

Input/ Output options 18 

Input/Output statements (FORTRAN) 103 

Input instructions 145, 146 

Internal Data Transmission instructions 61, 140 

I/O declarative statements 80 

I/O macro-statements 81 

Job arrangement 13 

JOB Monitor Control record 8, 10 

Label (SPS) 

characters permitted in 43 

five characters or less, headed 63 

Symbol table 87 

table, see Symbol table 
Label, disk pack 

1401, 1410, 1440 6 

Monitor 7, 41 

Mutual 6 

LDISK Control record 119 

LIBR, SPS control record 86 

Library functions (FORTRAN) 112 

additional 113 

writing in SPS 134 

Link program 117 

Linkage instructions 67, 78, 82 

Linkage for CALL LOAD and CALL LINK 82 

Linkage for CALL EXIT 82 

Linkage for GET, PUT and SEEK 82 

Linkages for Supervisor I/O routine 17 

LIST CARD, SPS control record 86 

LIST OP CODE, SPS Modification Control record 91 

LIST TYPEWRITER, SPS control record 86 

LIST (FORTRAN) Ill 
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Load Programs routine 32 

Load Dividend Immediate (LDM) instruction 139 

Load Dividend (LD) instruction 139 

Load-on-call subprograms 117, 126, 127 

Loader, System 136 

Loader routine 23 

Loading the Monitor System to disk storage 136 

LOCAL Control record 127 

Location assignment counter (SPS) 60, 63, 138 

Logic instructions 141 

Machine requirements 4 

Macro-instructions (see Subroutines) 

operation of 67 

rules for coding 72 

Mantissa 

FORTRAN 37, 94, 118 

SPS 36, 69, 85 

MANTISSA LENGTH nn, SPS control record 85 

Manual restart 18 

MAR Check Indicator code 148 

Mask Digit Operand 48 

Mask Indicator code 148 

Mask Interrupts (MK) instruction 149 

Matrix Input/Output (FORTRAN) 104 

MBR-E Check indicator 23 

MBR-O Check indicator 23 

Miscellaneous instructions (SPS) 62, 147 

Mode of expressions (FORTRAN) 97 

Modification of variable-length subroutine 78 

Modification program, SPS II-D 91 

Modifier constants 78 

Module change numbers 12 

Monitor Control Record Analyzer routine 14 

Monitor Control Records 8 

Monitor Disk Pack label 7 

Monitor System Loader 136 

Move Address (MA) instruction 140 

Move Flag (MF) instruction 147 

Multiplexer Complete, code 148 

Multiply Immediate (MM) Instruction 139 

Multiply (M) instruction 139 

Mutual Disk Pack Labels 6 

NAME aaaaaa, SPS Control record 86 

N (noise) digit, defined 70 

NOISE DIGIT n, SPS Control record 85 

No Operation (NOP) Instruction 147 

Normalizing 70 

NO SUBROUTINES, SPS control record 86 

NO SYMBOLIC DIVIDE, SPS control record 86 

OBJECT CORE n, SPS Control record 85 

Object deck format 41 

Object program execution (FORTRAN) 126 

Octal Power Table 59 

Octal to Decimal (OTD) 140 

Operand 47 

address adjustment of 50 

asterisk, use of 46, 49 

at (@) sign, use of 47 

blank in 47 

comma, use of 46 
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dollar sign, use of 47 

end-of -line character, use of 46 

flag indicator 47 

modification 51 

special characters in 46 

tj^es of addresses used as 49 

see also P and Q operands 

Operating procedures (FORTRAN) 119 

Operating procedures, FORTRAN object programs 129 

Operating procedures (SPS) 84 

Operation code 

coding sheet field 45 

Control 43, 62 

Declarative 43, 52 

Imperative 43, 60 

Operation of Monitor System 4, 136 

Operation symbols 97 

Operator Entry Indicator code 148 

Operators 

FORTRAN 97 

SPS 50 

Or to Field (ORF) instruction 140 

Origin 62, 79 

OUTPUT CARD, SPS Control record 86 

Output format 23, 31 

card 31 

paper tape 32 

typewriter 32 

OUTPUT PAPER TAPE, SPS Control record 86 

Output Printer (1710) control codes 58 

Output unit codes 145, 146, 147 

Output instructions 145, 146, 147 

Output listing (SPS) 87 

Overflow, exponent 70 

Overlap errors (FORTRAN) 129 

P operand 45, 52 

modifier constants 78 

see also Operands 

Paper tape I/O 19 

Paper tape read error : 21 

Parentheses 

FORTRAN 98 

SPS 47 

PAUS Monitor Control record 10, 11 

PAUSE statement 102 

Period (special character) 43 

Permanently assigned programs 6 

Pick subroutine 67, 72 

address equivalents for 71 

POBJP Control record 119 

PRINT statement 105 

Process Branch Indicators 1-20, codes 148 

Process Control Operations 62 

Process Interrupts 1-12, codes 148 

Processor (SPS) 84 

Product area 73 

mnemonics 65 

Programming SPS II-D 52 

Program switch settings 

FORTRAN 128 

Loader 136 

Monitor 4 
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PSTSN Control record 119 

PUNCH RESEQUENCED SOURCE DECK, SPS Control 

record 86 

PUNCH statement 105 

PUNCH SYMBOL TABLE, SPS Control record 85 

PUNCH TAPE statement 105 

PUT macro-statement 81 

Q operand 45, 51 

in Immediate instructions 47 

see Operands 

Range, DO 101 

Read Alphamerically Card (RACD) instruction 146 

Read Alphamerically Paper Tape (RAPT) instruction 146 

Read Alphamerically Typewriter (RATY) instruction 146 

Read Alphamerically (RA) instruction 145 

Read Binary Paper Tape (RBPT) 146 

Read check indicator 21, 23 

Read Disk (RDN) instruction 147 

Read Disk Track (RTN) instruction 147 

Read Disk Track/WLRC (RTGN) instruction 147 

Read Disk/WLRC (RDGN) instruction 147 

Read Numerically Card (RNCD) instruction 145 

Read Numerically Paper Tape (RNPT) instruction 146 

Read Numerically (RN) instruction 145 

Read Numerically Typewriter (RNTY) instruction 146 

READ statement 104 

Record mark 50, 54 

RECORD statement 106 

Relocatable program 4 

Relocatability, rules 90 

Remarks 45 

Replace Programs routine 34 

Repositioning of DISK access arms 20 

Restart, manual 18 

Restore (RSTR) statement 65 

Return Carriage Typewriter (RCTY) instruction 146 

RETURN statement 116 

Rules for assignment of DIM entries and/or names 41 

Rules for constructing expressions 97 

Rules for statement writing (SPS) 45 

Save (SAVE) statement 65 

Save error count procedure 20 

Scale factors Ill 

Sector, disk 

address 58 

count 58 

Seek (SK) instruction 147 

SEEK macro-statement 81 

Select ADC and Increment (SLAD) instruction : 149 

Select ADC Register (SLAR) instruction 149 

Select Address and Contact Operate (SACO) instruction .... 149 

Select Address and Operate (SAO) instruction 149 

Select Address (SA) instruction 149 

Select Analog Output and Signal (SAOS) instruction 149 

Select Contact Block (SLCB) instruction 149 

Select Manual Entry Switches (SLME) instruction 149 

Select Read Numerically (SLRN) instruction 149 

Select Real-Time Clock (SLTC) instruction 149 

Select TAS (SLTA) instruction 149 

Sequential Program table 6 
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Set Flag (SF) instruction 147 

Sign control in floating-point arithmetic (SPS) 70 

Slash symbol 

FORTRAN 97 

SPS 46, 50 

Source program 

FORTRAN 117 

SPS 84 

Space Typewriter (SPTY) instruction 146 

Special characters 

for statement writing 46 

permitted in labels 43 

Specification statements 106 

SPS Control records 85 

SPS Monitor Control record 8, 11 

SPSX Monitor Control record 9, 11 

Stacked input 13 

Statements 

FORTRAN 93 

SPS 45 

STOP statement 103 

STORE CORE IMAGE, SPS Control record 86 

STORE RELOADABLE, SPS Control record 86 

Subprogram statements 115 

SUBROUTINE statement 115 

Subroutines 
FORTRAN 

library 123 

adding to 131 

Arithmetic and I/O 124 

SUBROUTINE statement - - 115 

SPS 

adding 77 

arithmetic 66 

data transmission, 66 

entry points 79 

equal/zero indicator 71 

functional 66 

high/positive indicator 72 

identification number 68, 79 

linkage — 68 

overflow indicator 72 

pairing, 68 

sets 68 

writing, 77 

see macro-instructions 

SUBROUTINE SET nn, SPS Control record 85 

Subscripted variables 97 

Subscripts 96 

Subtract Immediate (SM) instruction 139 

Subtract (S) instruction 139 

Supervisor program 8 

Symbol table 

FORTRAN 125 

SPS 86, 87 

system 86, 91 

System error 22 

System header label area, 1401, 1410, 1440 6 

System Output format 4, 23 

indicator codes 24 

System Symbol table 86, 91 

SYSTEM SYMBOL TABLE, SPS Control record 86 
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22. 1710 SPS Operation Codes 149 

23. SPS Subroutine Execution Times 151 

24. 1620 Character Coding 152 
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Alphameric Card Data with RN Instruction 153 

Tabulate Typewriter (TBTY) Instruction 146 

Trace feature, FORTRAN 123 

Transfer Control and Load statement 64 

Transfer and Return Address statement 65 

Transfer Numerical Fill (TNF) instruction 140 

Transfer Numerical Strip (TNS) instruction 140 

Transmit Digit (TD) instruction 140 

Transmit Digit Immediate (TDM) instruction 140 

Transmit Field (TF) instruction 140 

Transmit Field Immediate (TFM) Instruction 140 

Transmit Floating 

instruction (TFL) 140 

Subroutine (TFLS) 75 

Transmit Record (TR) instruction 142 

Transmit Record, No Record Mask (TRNM) 140 

TWO PASS MODE, SPS Control record 85 

TYPE Monitor Control record 10, 11 

TYPE statement 105 

TYPE SYMBOL TABLE, SPS Control record 85 

Typewriter I/O 19 

Typewriter read error 21 

Typewriter write error 21 

Unavailable disk drive error 22 

Underflow, exponent 70 

Unmask Interrupts (UMK) Instruction 149 

Unnormalized numbers 70 
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Variable length, defined 66 

Variables (FORTRAN) ^ 96 

Variable-length mantissa subroutines (SPS) 67 

WLR-RBC check indicator 23 

Working areas, subroutine 

FORTRAN 131 

SPS 78 

Working cylinders 5, 83, 108, 130 

Write Addresses routine 28 

Write Alphamerically Card (WACD) instruction 146 

Write Alphamerically Paper Tape (WAPT) instruction .... 146 

Write Alphamerically Typewriter (WATY) instruction .... 146 

Write Alphamerically (WA) instruction 146 
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Write Binary Paper Tape (RBPT) 146 

Write check indicator 21, 23 

Write Disk (WDN) instruction 147 

Write Disk Track/WLRC (WTGN) instruction 147 

Write Disk Track (WTN) instruction 147 

Write Disk/WLRC (WDGN) instruction 147 

Write error count error 22 

Write Numerically Card (WNCD) instruction 145 

Write Numerically Paper Tape (WNPT) instruction 145 

Write Numerically Typewriter (WNTY) instruction 145 

Write Numerically (WN) instruction 145 

XEQ Monitor Control record 9, 11 

XEQS Monitor Control record 10, 11 
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